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Abstract 


This presentation introduces the concepts of table pairs and describes the uses of table pairs in the 
JES2 component of MVS/System Product (MVS/SP). The aim is to help you understand the 
considerations necessary to migrate JES2 source modifications and exit code to tables. 


IBM introduced table pairs in the JES2 component of MVS/SP JES2 1.3.3. They provide a means 
to alter JES2 processing and achieve tailoring of the JES2 component of an MVS/SP JES2 system. 
Table pairs are not meant to replace the JES2 exit facility. They are intended to work either with 
or without the JES2 exit facility, depending upon the needs of your installation. 


As with exit points and source modifications, only experienced system programmers with a thorough 
knowledge of system programming, JES2 programming conventions, and JES2 design and code 
should attempt to use this material. If you attempt to write exit routines, install new exit points, 
or implement the table pair function described in this bulletin without this special knowledge and 
experience you run the risk of seriously degrading the performance of your system or causing com- 
plete system failure. 


Documents key to understanding this material include MVS/XA SPL: JES2 Initialization and 
Tuning, form SC23-0065, MVS/XA SPL: JES2 Modifications and Macros, form LC23-0069, 
MVS/XA JES2 Logic, form LY24-6008, and JES2 component source code. In the latter, listings 
of modules HASPTABS and HASPSTAB contain helpful examples of JES2 tables. 


We developed the document and coding example using MVS/SP JES2 2.1.5. Although the editor 
and reviewers have attempted to update this to the 2.2.0 level, we may have unintentionally missed 
a few details which we therefore must leave to the reader to uncover. Also, changes or enhance- 
ments to JES2 anytime can change coding details and some of the more specific examples herein. 
As always, consult the manuals which correspond to the version, release, and level of the JES2 
component of MVS/SP you are running. 


Mark Swallow developed and presented this material for GUIDE 65 session SY-7141, July, 1986, 
in Chicago. Harry Familetti presented it at SHARE 67 sessions 0382 and 0383, August, 1986, in 
Atlanta. 
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Preface 


How to Read This Book 


Unless you have a high tolerance for pain and have falling-out-of-the-chair insurance, we don’t re- 
commend you try to read this straight through. Instead, we recommend you: 


e look at the table of contents, and then 
e read the overview of the document contained in “Introduction”. 


Then, especially if you’re new to modifying JES2, read the chapter called “What Are JES2 Table 
Pairs?”’. 


After you’ve sat on that for awhile and had at least a second cup, pick one of the table pair examples 
in “Examples of Table Pairs” and skim that to get a general idea of the techniques you will need 
to master. 


If after all this you still feel you need to add function in your installation, then go back and study 
the chapter which describes how to add table pairs for the function you need to develop. Be sure 
you have ready access to JES2 source code libraries, a copy of SPL: JES2 Modifications and 
Macros, and lots of patience. 


Thanks 


Thanks to the following people for their comments, encouragement, close reading of the text, and 
testing. None are responsible for any mistakes left herein. (If you find one, tell us using the Reader 
Comment Form, please.) 


e Steve Anania 


e¢ Bernie Becker 


e §=Bill Coltin 
e Harry Famuletti 
e John Kinn 
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This presentation will cover three general topics: 
1. Definition of table pairs 

2. Examples 

3. Conclusions 


First, we will discuss what table pairs are. We will look at extensibility in JES2 by comparing exits 
versus table pairs and give positive and negative aspects of both. Next we will discuss the concepts 
of table pairs and their potential functions. 


Second, we will show examples of table pairs that currently exist in J ES2: 
e Processor Control Element (PCE) tables. These tables are used to create IBM and 


installation-defined processors in JES2. We will show an example in a security processor. 
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Daughter Task Element (DTE) tables. These tables are used to create IBM and installation- 
defined subtask elements. We will discuss how communication between installation-defined 
processors and installation-defined subtasks takes place. We will show an example in a security 
processor. 


Trace Id (TID) tables. These tables are used to create IBM and installation-defined trace re- 
cords and format them. We will show an example of an installation-defined trace identifier 
using the installation-defined security PCE and DTE. 


Work Selection (WSTAB) tables. These tables are used to create IBM and installation-defined 
work selection criteria for use with the WS= operand on printers, punches, offload devices, 
etc. We will show an example of installation-defined work selection criteria. 


$SCAN tables. These tables are used to create IBM and installation-defined initialization 
statements and commands. The $SCAN facility is the most complex and extensible example 
of table pairs in JES2. We will show an example of an installation-defined initialization 
statement and an installation-defined command. 


As we present each of the above tables we will discuss the key control blocks and fields. 


Third, we will present some general conclusions. 


Z 
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What Are JES2 Table Pairs? 
JES2 Table Pairs Versus JES2 Exits 


What Are Table Pairs? 


e Extensibility in JES2 (Exit Points) 


» Used to: 


A Modify some JES2 processing or function 
A Add some installation processing or function 


A Delete some JES2 processing or function 


» Involves: 


A Installation-written modules or routines 
A Code link-edited with or in addition to JES2 


A Detailed knowledge of JES2 code, function, control blocks 
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Exit points were introduced into JES2 in the MVS/SP JES2 1.3.0 product. When you code exit 
points you may modify some JES2 processing or function, add some installation processing or 
function, or delete some JES2 processing or function. Notice that we use the word ‘some’ here. 
This is due to the variation in function that exits points provide. The location, the services avail- 
able, and the environment where the exit is called all affect what you are capable of achieving at a 
particular exit point. Therefore, there may be an exit point where you are capable of modifying 
JES2 processing but where you are not capable of deleting JES2 function or adding installation 
function. 


In order to use the exit facility, you must write exit modules to contain your exit routines. Your 
modules can be link-edited with JES2 (in certain instances) or they may be independent of JES2.! 
In general, coding exits requires detailed knowledge of JES2, its coding conventions and idiosyn- 


1 Best general practice is to keep exits separate from JES2 modules and then use the LOAD initialization 
statement to tell JES2 about them. 
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crasies, its functions, capabilities, and drawbacks, and its control blocks both in content as well as 
structure. Thus, using an exit point in JES2 can be a daunting endeavor for the uninitiated. 


What Are Table Pairs? ... 


e Extensibility in JES2 (Table Pairs) 


» Used to: 


A Modify JES2 processing or function 
A Delete JES2 processing or function 


A Add installation processing or function 


» Involves: 


A Installation written tables or routines 


A Tables or routines link-edited with JES2 or addresses placed in 
JES2 


A Need less detailed knowledge of JES2 code, function, control 
blocks 


Table pairs were introduced into JES2 in the MVS/SP JES2 1.3.3 product as a complement to exit 
points. When you code table pairs, you can modify JES2 processing or function, delete JES2 
processing or function, or add installation processing or function. Notice that unlike exit points, 
you can modify, delete, or add function without restriction. Note, however, we don’t recommend 
deleting JES2 function unless you understand the implications. We will discuss the implications 
of deleting JES2 function under each of the examples in the section “Examples of Table Pairs” on 
page 17. 


In order to use table pairs, you must create installation table pairs and perhaps also supporting 
routines, then either link-edit them with JES2 modules or define the table addresses to JES2. De- 
pending on what table you are going to add, modify or delete, this generally takes less detailed 
knowledge of JES2 code, function and control block structure and content than using JES2 exits 
would take. If you wish to add an initialization statement to JES2, this would probably require 
nothing more than a table entry to define the statement and to specify where to place the input. 
If you require more specialized processing than that supplied by JES2, then you can create sup- 
porting routines. In all of JES2’s initialization and command tables, only about one-sixth require 
supporting pre-scan or post-scan supporting routines. Therefore it is not likely that you will require 
such a supporting routine. If, however, you wish to add a processor (PCE), this requires code and 
expertise and adds a level of complexity. 


Generally, table pairs provide a structured mechanism to change JES2 processing. This makes 
changes somewhat less complex than what is required when you use an exit. 
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What Are Table Pairs? ... 


® Extensibility in JES2 (Table Pairs) 


» Do Not replace need for Exits 


» Provide ability to include, replace, or delete installation 
code in JES2 processing 


A don’t need exit code to perform 


A generally possible with less code than with exits 


» Less maintenance impact 


It is important to emphasize that table pairs do not replace the need for exit points. Table pairs 
and exit points can meet their respective requirements independently or together. However, using 
table pairs rmposes fewer constraints and less complexity than using exit points since you can add, 
delete, or modify JES2 processing. Furthermore, since less code is usually needed, there is less of 


a maintenance impact. 
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Concepts 


Next, we discuss concepts of table pairs in order to introduce key points used in implementing the 
table pair functions of JES2. 


What Are Table Pairs? ... 


e Concepts of Table Pairs (Description) 


Installation 
Table 


TABLE START 
TABLE ONE 


Router CB TABLE IT 


VCINST TABLE > 
VC JES2 TABLED 


TABLE AA 
TABLE II 


TABLE END 


Table pairs in JES2 start with a router control block that contains a pair of addresses. This pair 
of addresses is known as a ‘table pair’. The first address in the pair of addresses points to an 
installation-defined table and the second address points to a JES2-defined table. Each table 1s de- 
fined by a TABLE START and by a TABLE END. The table information is contained within 
the TABLE START and TABLE END delimiters. 


In the example above, the installation table contains two table elements. The first is a table entry 
that describes the element ‘ONE’ and the second table entry describes the element ‘II’. The 
IBM-supplied table in the example also contains two table elements of information. The first is a 
table entry that describes the element ‘AA’ and the element ‘II’. 


JES2 uses these tables when it is processing the items ‘ONE’, ‘II’, and ‘AA’. 
1. First JES2 isolates the item to process (e.g., ‘ONE’, ‘II’, or “AA’) in the input source data. 
2. Next it goes to the router control block to find the table pair to use to process the isolated item. 


3. Then it attempts to find the installation table. If the first table pair pointer is zero, then JES2 
will search the JES2 table only. If the table pair pointer is non-zero, then this value 1s assumed 
to be the address of the installation table. In this way the installation table, if it exists, is aAways 
searched prior to the JES2 table. The installation table is optional and will not exist unless 
you create it. 


4. Ifthe item to process 1s located in the installation table, then processing continues using the 
installation table entry. If the item is not found in the installation table, then JES2 will search 
the JES2 table. If the item to process is located in the JES2 table, then processing continues 
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feria 


using the JES2 table entry. If the 1tem is not found in the JES2 table then an error message 
is issued. 


Therefore, using the table arranged as described in the figure above, the three input items ‘ONF’, 
‘II’, and ‘AA’ will be processed. Let’s assume they are encountered in that order. 


First, the input item ‘ONE’ is processed. The item ‘ONE’ is located and isolated in the input 
stream. Next, the address of the installation table is found from the table pair in the router control 
block. The installation table is searched by examining each table element for a match for the input 
‘ONE’. In this example the first table element matches the input. This table element will be used 
by JES2 to process the input ‘ONE’. Notice that the JES2 table does not include a table element 
that describes ‘ONE’. Therefore, the installation has added some processing or function to JES2 
without modifying any JES2 code. 


Next the input item ‘II’ will be processed. The item ‘II’ is located and isolated from the data 
handed to JES2. Next the address of the installation table is found from the table pair in the router 
control block. The installation table is searched by examining each table element for a match for 
the input ‘II’. In this example, the table element that matches the input is found later in the in- 
stallation table. This table element will be used by JES2 to process the input ‘II’. Notice that the 
JES2 table includes a table element that describes ‘II’. Since a match was found in the installation 
table, JES2 never searched the JES2 table. Thus the installation has replaced or modified some 
processing or function without modifying any JES2 code. 


Finally, the input item ‘AA’ is processed. The item ‘AA’ is located and isolated from the data 
handed to JES2. Next the address of the installation table is found from the table pair in the router 
control block. The installation table is searched by examining each table element for a match for 
the input ‘AA’. In this example, there is no element that matches the input of ‘AA’ in the instal- 
lation table. Therefore, processing continues by searching the JES2 table for an element that 
matches ‘AA’. When this table element is found in the JES2 table, the input ‘AA’ will be processed 
by this table element. . 


Deleting a table element is done by deleting the table that contains the element. For example, if 
you wished to delete the processing for the input ‘AA’, you would zero the second table pair address 
that pointed to the JES2 table that contained the element for ‘AA’. If there were elements in the 
JES2 table that you would not want deleted along with the element for ‘AA’, you would have to 
copy those elements to an installation table.? It is not recommended that you delete JES2 tables. 
However, the ability to do so is not inhibited since there may be times when such function is re- 
quired. 


2 An alternative might be to provide a null installation table element for the item to be ‘deleted’. 
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What Are Table Pairs? ... 


e Concepts of Table Pairs (Description) ... 


» TABLE PAIR 
A pair of addresses, each pointing to a table of information 


= “ROUTER” CB 


A Place where a table pair resides 


A Installation table defined as a weak external V-type address 
constant 


A JES2 table defined as a V-type address constant 
» Installation Table 


A table of info supplied by installation 


A begun with TABLE START, ended with TABLE END 


e JES2 Table 


A table of info supplied by JES2 


A begun with TABLE START, ended with TABLE END 


In summary: 


8 


A table pair consists of a pair of addresses where the first address is the address of an installa- 
tion table of information and the second address is the address of the JES2 table of informa- 
tion. One or the other of these fields may be zero, but not both. If the installation table 
pointer is zero then no installation table exists and JES2 will use the JES2 table to attempt to 
process the input. If the JES2 table pointer is zero then the input must be found in the in- 
stallation table or else the input is marked as invalid. 


The router control block contains one or more table pair addresses. The installation table 


fields of the table pair are defined as weak external V-type address constants. Therefore, in- 


stallation tables may be link-edited with JES2 to have the linkage editor resolve the installation 
table addresses. If the installation table is not link-edited with JES2 then you must fill in the 
address of its table into the first of the correct table pairs. We will provide more information 
on the specific tables and what must be done later (in “Examples of Table Pairs” on page 
17). The JES2 table entries are defined as V-type address constants and the JES2 table ad- 


‘dresses are placed into the table pairs by the linkage editor. 


An installation table consists of a table of information defined by the installation. The table 
begins with a TABLE START and concludes with a TABLE END. 


The JES2 table is supplied by IBM with the JES2 product. The table begins with a TABLE 
START and concludes with a TABLE END. Each function that uses the table pair capability 
has its own table pair. 
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Master Control Table 


What Are Table Pairs? ... 


¢ Concepts of Table Pairs (Control Blocks) 


« $MCT - Master Control Table (”“Router” CB) 


& Contains pointers to all table pairs within JES2 
& Mapping macro $MCT expanded in module HASPTABS 


A Contains table pair pointers for 


& PCE creation 

4 DTE creation 

A Trace identifiers 

A Initialization options 

A Main parameter statements 


A Work selection options 


The router control block referred to above is called the Master Control Table (SMCT). This 
control block contains all of the table pairs in JES2. The mapping macro for this control block is 
called the $MCT and is expanded in the JES2 module HASPTABS. 


The $MCT contains the table pair pointers for: 


Processor creation (PCE’s) 

Subtask creation (DTE’s) 

Trace identifiers 

Initialization options (e.g., COLD, NOREQ, WARM, etc.) 
Main parameter statements (e.g.,. CKPTDEF, SPOOLDEF, etc.) 


Work selection options 
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What Are Table Pairs? ... 


e Concepts of Table Pairs (Control Blocks) 


» $MCT - Master Control! Table ... 


A Pointed to from field $MCT in $HCT 


A Installation Table addresses resolved by 


& Linkedit with HASJES20 


A Place address in HASPTABS from ExitO 


e Other Control Blocks will be discussed later 


01/88 8 


The Master Control Table (SMCT) is pointed to from the $HCT field S$MCT. Addresses of the 
installation tables can be resolved by either link-editing the installation table with JES2 (using the 
appropriate name, as will be described later) or by placing the address of the installation table into 
the $MCT through an exit. Exit 0 (initialization) can be used for this purpose. 


Some of the other key control blocks for table pairs will be described in the section “Examples of 
Table Pairs” on page 17. 
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Functional Routines 


What Are Table Pairs? ... 


¢ Functions (Generalized Scheme) 


TABLE START 
TABLE A 
TABLE 8 


VCUSERTBLED ; 
VCHASPTBLE _ TABLE I 


Function: 
1) Take Input 
2) Find Table Based on Input 
3) Process Input 


A functional routine uses the table pair as a means to process input. The general flow is to process 
some input by first isolating the item to process. Then the routine finds the corresponding table 
element (either installation or JES2) which defines the input item. Then it processes the input using 
the table element. 
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General Example 


Next, we explain examples of the processing done by a functional routine. 


What Are Table Pairs? ... 


e Concepts of Table Pairs (Examples) 


IDEF PARM1=,PARM2= 
PRT1 FCB=,INSTBRST=,UCS= 


DEBUG=YES 


Install] ation 
Table 


USERTAB1 
TABLE START 


HASPTABS TABLE IDEF 


MCT TABLE PRT 
: TABLE END 
ABLE | DC VCUSERTABLD 
DC VCHASPTABL> 
H 
TABLE START 
TABLE DEBUG 


TABLE PRT 
TABLE END 


In the example shown in the figure above, there are three initialization statements. A functional 
routine will accept the input of ‘IDEF PARM1=,PARM2=’ and process it using the table struc- 
ture shown. 


Located in the JES2 module HASPTABS is the Master Control Table that contains the main pa- 
rameter statement table pair. The first entry is the pointer to the installation parameter statement 
table USERTABI. If you want the linkage editor to resolve the table address, you would have to 
name the table USERTAB1 and link-edit the table with JES2. If you did not want to link-edit 
with JES2, you would have to place the address of the table into this table pair entry. 


The functional routine would first isolate the input IDEF from the input passed it. Next it would 
find the table pair in the MCT and search the installation table for the element that matched IDEF. 
Once it found the matching element, 1t would use this table element to process the statement “IDEF 
PARM1= ,PARM2’ and not search the JES2 table. In this way, you have added an initialization 
statement and the functional routine has not been modified. 


To process the input ‘PRT1 FCB=,INSTBRST= ,UCS=’, the functional routine would once 
again isolate the first keyword in the input “PRT 1’ and, using the table pair, search the installation 
table for the element that matched the input. Once it found the table element that matched PRT1, 
it would use this table element to process ‘PRT1 FCB= ,INSTBRST= ,UCS =’ and not search the 
JES2 table. Note that the functional routine did not search the JES2 table and did not find the 
JES2 table element for PRT. In this way, you replaced an initialization definition without modi- 
fying the functional routine. 


Finally, to process the input “DEBUG= YES’, the functional routine would isolate the keyword 
‘DEBUG’, find the table pair, and search the installation table. When no matching table element 
was found in the installation table, the functional routine would obtain the address of the JES2 
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table from the table pair and search it. Once found, the table element for ‘DEBUG’ in the JES2 
table would be used to process the initialization statement. 


What Are Table Pairs? ... 


¢ Concepts of Table Pairs (Examples)... 


PRT1 FCB=,INSTBRST=,UCS= 


TERS 
DC VCUSERTAB1> 


TABLE START 

VCHASPTAB] > 
TABLE DEBUG 
TABLE PRT VCUSERTAB2 > 


TABLE END VCHASPTAB2 > 


USERTAB2 
TABLE START 


TABLE INSTBRST 
TABLE END 


HASPTAB2 
TABLE START 


TABLE FCB 
TABLE UCS 
TABLE END 


There can be multiple levels of tables to define parameters to JES2. In the example above, the 
functional routine will search two levels of tables to process the input ’PRT1 
FCB =,INSTBRST= ,UCS=’. The functional routine will: 


1. isolate the first keyword ‘PRT’. 


2. obtain the table element to process the keyword. The functional routine will get the address 
of the installation table. Since this address is zero, there is no installation table. Therefore, it 
will search the JES2 table until it finds the table element that matches “PRT 1’. 


3. process the ‘PRT 1’ statement using this table element. The table element for ‘PRT’ tells the 
functional routine that to process the rest of this statement it must use another level of tables. 
These tables are pointed to from the table pair at PRT in the MCT. 


4. isolate the next keyword ‘FCB’. 


5. obtain the table element to process the keyword. The functional routine will get the address 
of the installation table from the first entry in the PRT table pair. Since FCB’ is not in that 
table, the function routine will search the JES2 table. The table element for FCB’ is found 
in the JES2 table. | 


6. process ‘FCB’ using this table element. 
7. isolate the next keyword ‘INSTBRST"”. 


8. obtain the table element to process the keyword. The functional routine will get the address 
of the installation table from the first entry in the PRT table pair. It will find the table element 
that matches ‘INSTBRST" in the installation table. 


9. process ’(INSTBRST’ using this table element. 
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10. isolate the next keyword ’UCS’. 
11. obtain the table element to process the keyword. The element will be found in the JES2 table. 
12. process ‘UCS’ using this table element. 


The functional routine will then determine that there is no more input and indicate completion. 
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i Summary 


To summarize: 


1. 


fe 
5 FBR 
en 
vl 
t 


Table pairs are a pair of addresses where the first address is a pointer to an installation table 


of information and the second address is a pointer to the JES2 table of information. 


The installation table is searched before the JES2 table to find a matching table element for 


some input. 


A functional routine is one that makes use of the table pairs to process some input. 
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Examples of Table Pairs 


Examples of Table Pairs in JES2 


Examples of Table Pairs in 
JES2 


There are five ways JES2 uses table pairs. JES2 uses table pairs for: 


l. 


Poe ae 


5. 


PCE Tables 
DTE Tables 
TID Tables 
WS Tables 
$SCAN Tables 


This chapter shows how JES2 makes use of table pairs. Some of the functions are more complex 
than others, but all make use of table pairs and therefore allow you to add, modify, or delete JES2 
functions or processing without directly modifying JES2 source code. | 


Examples of Table Pairs 17 


How These Examples Are Shown 


Examples of Table Pairs in JES2 ... 


® Purpose of Table 


e Supporting Control Blocks and Macros 


e JES2 Example 


« Table field detail descriptions 


@ Installation Example 


» Objective 

» Pieces required 
« Table coding | 
» Resultant table 


» Completion of required pieces 


As we present each example we provide the following information: 


e The purpose of the table or function. What is it that you can add, modify or delete? This 
will not be detailed but will point you to other books that can be read to gather greater detail. 


e Describe some of the supporting control blocks and macros. These are typically key control 
blocks and macros that you would have to understand and make use of to fulfill the appro- 
priate function. | 


e Step through a JES2 example. Describe what the table contains using a JES2 table element 
as an example. This will describe the table element field values. 


e Step through the creation of an installation table and table element. This involves: 


describing the objective the table is trying to satisfy; 

identifying what pieces besides the installation table are required, if any; 
coding the table element; 

describing what the final table looks like; and, 


describing what other required pieces look hike. 


“Appendix A. Table Pairs Coding Example” on page 147 contains coded examples of the specific 
installation sample we are creating in this bulletin. The examples there are inter-related to show 
how the tables can be used together. This is not required. That is, it is not necessary to code a 
PCE table (create your own processor) and code your DTE table (create your own subtask). In 
fact, it may make no sense to design interrelated tables for your particular use of JES2 table pairs. 
The examples are contrived to show what can be done, not necessarily what should be done. — 
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( 7 PCE Tables 


What Is a PCE Table? 


PCE Tables 


e Processor Control Element (PCE) Tables 


» Used to 


A Add Installation processors to JES2 system 


A Override HASP-defined processors in JES2 system 


« HASP-defined PCE tables reside in HASPTABS 


» See MVS/Extended Architecture SPL: JES2 User 
Modifications and Macros (LC23-0069) 


ei. An 


The Processor Control Elements (PCE) tables are used to add installation-defined processors 
(PCEs)? to a JES2 system or to override JES2-defined processors. Notice that deleting a JES2 
processor is not on our agenda. This is because we recommend you do not delete any JES2 
processors. 


The JES2-defined PCE tables reside in the JES2 module HASPTABS. Some of the following in- 
formation can be found in SPL: JES2 User Modifications and Macros. 


3. The term ‘PCE’ refers either to the JES2 unit of work (processor) or to the control block which represents 
the processor. Where the distinction is important we have tried to add terms like ‘processor’ or ‘control 
block’ to the term ‘PCE’ where it occurs. 
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PCE Tables ... 


e Processor Control Element (PCE) Tables... 


» Unit of JES2 work that is similar to MVS TCBs in function. 


» Maintains control until $WAIT is done 


» Receives control through the use of $POST 


» Controlled through the JES2 Dispatcher 


JES2 Processor Control Elements (PCEs) represent units of JES2 work. In this way they are 
similar to MVS Task Control Blocks (TCBs). The JES2 dispatcher gives control to a PCE. Unlike 
TCBs, this JES2 unit of work will not be preempted by the JES2 dispatcher. No other PCE will 
gain control until and unless this PCE directly relinquishes control. This is done when the JES2 
process issues a SWAIT. When a $WAIT is done, control is given to the JES2 dispatcher, which 
saves the registers in the PCE control block that represents the JES2 processor and then dispatches 
another JES2 processor. A JES2 processor is ineligible for dispatching until it is $POSTed. 
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—e 


PCE Tables ... 


® Processor Control Element (PCE) Tables... 


e Specify 


A Generated 


“4. at initialization 
“4. after initialization 
4, don’t generate 


Dispatched 


£, after Initialization and Warm processing 
4 after Initialization with Warm processor 


4, $WAITed on work 


A Relate to a DCT (if one-to-one correspondence) 


The PCE table, among other things, describes when the processor should be generated, when it 
should be dispatched, and whether it is related to a device. 


PCEs may be generated during JES2 initialization or after initialization. Therefore, you could 
specify that a processor be created and be present for the life of JES2 or that it be created only upon 
installation demand (1.e., after initialization). This provides a way to save storage or other re- 
sources. You can also specify that a processor should never be created. This would be useful for 
documentation purposes. JES2 has such a table element to document the initialization PCE. This 
PCE is needed prior to the ability to create a processor through the PCE functional routine. 


You may also specify when the processor should be given control. If you want a processor to be 
given control concurrent with the HASPWARM processor for final initialization processing, this 
can be specified. If the installation processor doesn’t need to take control until initialization has 
completed but concurrent with the other JES2 processors, this can be specified. You can also in- 
dicate that a processor is only to get control when it is $POSTed for work (i.e., it 1s some sort of 
service processor). 


Processors can also be associated with a device. This is done by pointing to a particular DCT table 
from the PCE table. This is a one-to-one correspondence. That is, one PCE is associated with one 
device. 
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PCE Control Blocks and Macros 


PCE Tables ... 


e PCE Tables (Related Control Blocks and Macros) 


« $MCT table fields: 


MCTPCETU DC V(USERPCET) USER TBLE 


MCTPCETH DC V(HASPPCET) HASP TBLE 


» $PCETAB macro 


A Builds PCE Tables and entries 


‘A Maps PCE Table entries 


« $PCEDYN macro 


A Used to dynamically attach, detach processors 


A Invokes $PCEDYN routine 


The table pair used to point to the PCE tables is located in the $MCT. The field MCTPCETU 
will contain the address of the installation table, if such a table exists. If you want to link-edit your 
table with JES2 you must name the table USERPCET and link-edit it with HASJES20. The 
JES2-defined PCE table is pointed to from the $MCT field MCTPCETH and is named 
HASPPCET. 


To aid in creating PCE tables, JES2 supplies a macro named $PCETAB. This macro builds both 
the JES2 and installation tables and table elements. This macro also contains the mapping macro 
for the PCE table and element. We will describe this macro and its operands more thoroughly later 
on (“A JES2 PCE Table” on page 29). 


JES2 provides a mechanism to dynamically attach and detach processors via the $PCEDYN ser- 
vice. This service is invoked by the $#PCEDYN macro. The service routine makes use of the PCE 
tables for the attaching and detaching of the processor (PCE). 
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PCE Tables ... 


e PCE Tables (Related Control Blocks and Macros)... 


» $GETABLE macro 


A Used to return table entries of USER or HASP table pairs 


A To obtain PCE Table, use TABLE = PCE 


» PCE control block 


A Defines JES2 processors 
A Contains fields required on a processor basis within main task 


A May have a variable length extension - processor specific 
information - 


A Contains an OS-style save area at front 


A installation-reserved fields (PCEUSERO, PCEUSER1) 


The $GETABLE macro invokes the $GETABLE service routine that is located in the module 
HASPTABS. This service obtains a table element from the user or JES2 table. To obtain a PCE 
table, you would code TABLE= PCE operand. This macro will return the table element of the 
specified ID or, if LOOP is specified, return the next table element after the specified identifier. 


The major control block for adding or modifying a processor is the PCE (Processor Control Ele- 
ment). PCEs represent and define JES2 processors. This control block contains fields that are 
required on a processor basis within the JES2 main task.t The PCE is composed of a common 
section (all JES2 processor PCEs contain this common section) and an optional variable length 
section that is unique between processor types and contain processor specific information. The 


various processor types in JES2 include: 


e Input 
e JCL Conversion 


e Execution 


e Output 
e Print 
e Purge 


The PCE common section includes an OS-style save area at the front. This is pointed to by R13 
in the JES2 main task (i.e., it points to the PCE with the OS-style save area in the front) which 
MVS services use as the available save area. In addition, two installation-reserved fields are con- 


4 See the topic ‘JES2 Structure’ in MVS/XA JES2 Logic if the term ‘main task’ is unfamiliar to you in this 
context. 
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tained in the common section. These two words are the PCEUSERO0 and PCEUSER1 fields in the 
PCE control block. 


PCE Tables ... 


e PCE Tables (Related Control Blocks and Macros)... 


« PCE control block... 


OS STVLE SAVE AREA 


FIELDS COMMON FOR ALL PROCESSORS 


VARIABLE LENGTH EXTENSION 


The figure above illustrates what the PCE contains. The common area contains the OS-style save 
area at the front, followed by those fields that are common for all types of processors. 


The variable length extension area is an optional extension to the common area that contains 
PCE-type specific information. Thus, the PCE extension for the reader (Input) PCE would be the 
same as other reader PCEs but different from the printer PCE extension area. The size of this ex- 
tension area is specified on the PCE table. 
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PCE Tables ... 


e PCE Tables (Related Control Blocks and Macros)... 


» Dispatcher Resource Wait Queue Chains 


A $DRTOTAL {in $HASPEQU) - total number of resources - 64 
A JES2 Defined - $DR000m equates in $SHASPEQU 


A Installation-Defined - use $DRTOTAL-1 and down 


e Macros: 


» $POST SCTY 


» SWAIT SCTY 


JES2 processors, unlike MVS tasks, maintain control of JES2 processing until they issue a $WAIT 
macro. When the $WAIT macro is issued, the JES2 dispatcher receives control and places the PCE 
on a queue for the requested resource. In JES2 the total number of resource queues is defined in 
$HASPEQU via an equate named $|DRTOTAL. $DRTOTAL is defined for 64 resource queue 
chains. When the processor issues a $WAIT macro with a one- to five-character resource name, 
the macro and dispatcher place the processor on that $DRxxxxx queue, where $DRxxxxx is one 
of up to 64 resource names defined via an EQU. JES2-defined resources start at 0 and increase. 
You have the ability to define installation resource queues starting at 63 and decreasing. 


Therefore, if a processor issued a “$WAIT SCTY’, the dispatcher would place the processor on the 
wait queue defined as $DRSCTY.* This processor would remain on this queue until a $POST 
SCTY was done. When the $POST is done, the processors on the $DRSCTY wait queue are put 
on the JES2 ready queue where they will be dispatched by the JES2 dispatcher. 


Additional information can be found on the $WAIT and $POST macros in SPL: JES2 User 
Modifications and Macros. Also, reference source module $HASPEQU for the IBM-defined re- 
source queues. 


5 (SCTY’ is an installation-defined resource, as in the sample code in “Appendix A. Table Pairs Coding 
Example” on page 147.) | 
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PCE Tables ... 


e PCE Tables (Related Control Blocks and Macros)... 


» PCE Save Area (PSV) 


A Maps save areas chained from PCE 
4 Managed by $SAVE and $RETURN 


A PSV in PCE provides standard save area for 


4 MVS services 
A JES2 dispatcher 


4 HASPSSSM routine calls 
4 Run Save Areas by 


A PCELPSV - points to last save area 


A PSVPREV - points to previous save area 


4, PSVNEXT - volatile in PCE - DO NOT USE FROM PCE 


All save areas in the JES2 main task are chained from a PCE. The PCE contains the PSV (PCE 
Save Area) that maps save areas chained from the PCE as well as the save area in the PCE itself. 
Save areas chained off the PCE are managed by JES2 $SAVE and $RETURN services. The PCE 
save area is used for MVS service calls, by the JES2 dispatcher to save current register contents 
when the processor is $}WAITed, and by calls to HASPSSSM service routines. : 


In order to run the JES2-style save areas you must run the save areas backwards. Thus, use field 
PCELPSV which points to the last (most recent) save area chained from the PCE and use 
PSVPREYV in that save area to point to the previous save area. Do not use PSVNEXT from the 
PCE since this 1s a volatile field which may be overlaid by MVS services, the JES2 dispatcher, or 
HASPSSSM even with JES2-style save areas chained from the PCE. 


JES2 save areas are nearly identical to standard OS save areas in format, but not in the way they 
are used and accessed. So: 


¢ Register 13 does not point to an available save area in the JES2 main task. One can do a STM 
into R13 (the PCE) but the correct approach would be to do a $SAVE to obtain a JES2 save 
area and save the registers in the JES2 main task environment. 


e You cannot use register 13 to follow the chain of save areas from the JES2 main task, since 
R13 (the PCE) is kept as an available save area for calls to MVS services, not JES2 routines. 


¢ The save area format is different in that there are extra words on the end of JES2 save areas 
that we use to point to the PCE (PSVPCE) and the $SAVE identifier at the location where 
the $SAVE was issued (PSVLABAD). 
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( PCE Tables ... 


e PCE Tables (Related Control Blocks and Macros)... 


» PCE Save Area (PSV)... 


Ni 


The figure above illustrates the chaining used for JES2 save areas. The PCE field PCELPSV will 
point to the last (most recent) JES2 save area and by using PSVPREV, the save areas can be 
chained back to the PCE. The save area in the PCE is thus available for use by other services that 
require OS-style save areas. 
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PCE Tables ... 


e PCE Tables (Related Control Blocks and Macros)... 


» PCE Save Area (PSV)... 


You can use the PCE field PSVPCE from any JES2 save area to obtain the PCE address. In ad- 
dition, while running the JES2 save areas, the PSVNEXT field is valid. Do not, however, use this 
field from the PCE, since it may not be valid. 
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A JES2 PCE Table 


PCE Tables ... 


e PCE Tables (Examples - JES2) 


HASPPCET SPCETAB TABLE=HASP 
SPCETAB NAME=... 


RORPCET $PCETAB NAME=RDR,DESC=” READER’ , 
DCTTAB=RDROCTT , 
MODULE=HASPRDR, 
ENTRVPT=MAPRDRA , 
CHAIN=SRDRPCE, 
COUNTS=SNUMRDRS , 
MACRO=SRDRWORK , 
WORKLEN=ROWLEN, 

GEN=INIT ,DISPTCH=WARM, 
PCEFLGS=0,FSS=NO, 
PCEID=C PCELCLIO,PCERORID> 


SPCETAB NAME=. ee 


SPCETAB TABLE=END 


The figure above illustrates what the JES2 PCE table looks like. The table element shown repres- 
ents all the information that JES2 needs to generally define a JES2 reader processor. This 1s the 
table element that is passed to the $PCEDYN service to create the reader PCE. Notice that the 
name of the PCE table is HASPPCET, the same as that specified in the V-type address constant 
in the $MCT. 


Now we will describe each operand on the $PCETAB macro and how each should be specified. 
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PCE Tables ... 


e PCE Tables (Examples - JES2)... 


« $PCETAB TABLE=HASP - invoke $PCETAB macro to build 
JES2 PCE table 


» $PCETAB - invokes $PCETAB macro to build PCE Table 
entry for RDR PCE. 


A NAME= - PCE name 


4 1-8 characters 
4 $DPCE and $TPCE 

& DESC= - describing PCE type 
4 1-24 characters 


4 word ‘PROCESSOR’ appended to end 


A used in termination messages, SDWA, trace entries, etc. 


The JES2 table definitions are started by specifying “TABLE=HASP’. This indicates to JES2 that 
this table is a JES2 table. You would specify “TABLE= USER’ to indicate that the table is an 
installation-coded table. Specifying whether it is a JES2 or installation table determines default 
values for the ENTRYPT and CHAIN $PCETAB operands. We will discuss these operands later. 
Specifying TABLE = HASP or TABLE= USER 1s the means JES2 provides to indicate the start 
of the table (TABLE = START) as discussed in “Concepts” on page 6. 


When $PCETAB is specified with operands other than TABLE=, the macro generates a table el- 
ement. In the above example, the table element that is generated will be for the Reader PCE. 


The NAME operand specifies a one- to eight-character name. The command processor for $DPCE 
(display PCE) and $TPCE (set PCE) commands uses this name. The DESC operand specifies a 
one- to 24-character description of the PCE type. You can assume that the word PROCESSOR’ 
will be appended to the characters specified. Termination messages, the SDWA, $TRACE entries, 
and other places throughout JES2 use the term. _ 
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PCE Tables ... 


e PCE Tables (Examples - JES2)... 


» SPCETAB - table entry... 


A DCTTAB= - label on DCT Table Entry that corresponds to this 
PCE type 


& assumes DCT Table in same assembly module 
4 defines PCE in one-to-one PCE-DCT correspondence 


A optional 


4 MODULE= - assembly module containing processor’s entry point 


4 1-8 characters 


The DCTTAB operand is used only if the processor being defined is a processor that will control 
a device. In the example for the RDR processor, this processor will be controlling a reader device. 
In order to match the PCE with the device, the DCTTAB operand is coded by pointing it to the 
$DCTTAB macro call that defines the device. DCTTABs are also included in the HASPTABS 
module but are not at this time installation-extensible. The PCE may only specify one DCT 1n this 
way, so therefore, the PCE can only correspond with one DCT. 


The MODULE operand specifies the name of the assembly module containing the processor’s 
entry point. This name is a one- to eight-character name. In the example, the module that contains 


the RDR processor’s entry point is the HASPRDR module. This operand 1s only used for doc- 


umentation. JES2 code does not use this field. 
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PCE Tables ... 


@ PCE Tables (Examples - JES2)... 


» $PCETAB - table entry... 


A ENTRYPT= - name of fullword field holding processor entry point 
addr 


A specifies MODMAP field if TABLE = HASP 


A specifies $UCT field if TABLE = USER 


A CHAIN= - fullword field name used to point to first PCE of type 
within $PCEORG PCE chain 


A specifies $HCT field if TABLE =HASP 


A specifies $UCT field if TABLE = USER 


The ENTRYPT operand tells JES2 where the entry point address is for this processor. This op- 
erand must be set to a fullword field for the entry point address. In the example, 
ENTRYPT = MAPRDRA,; the fullword field was MAPRDRA. Since the table that contains the 
reader element is a JES2 table, this field is defaulted to be in $MODMAP. If you specify this field 
in an installation table it is defaulted to be in the $UCT. If you wish to override this default you 
would specify “ENTRYPT = (name, SMODMAP)Y’. The field must be in either $MODMAP or the 
$UCT. (The $UCT, or User Control Table, is a control block obtained by the installation and 
chained from the $HCT from field $UCT in the $HCT.)® 


The CHAIN operand is also a fullword field that tells JES2 where to chain the initial PCE of this 
type. All PCEs can be run by starting at SPCEORG in the $HCT. You use the specified CHAIN 
field to run PCEs of this type. In the example, CHAIN = $RDRPCE is the field that points to 
the first reader processor. PCEPREV and PCENEXT are fields used to chain to the next PCE. 
Since the table that contains the reader table element is a JES2 table, this field is defaulted to be in 
$HCT. If you specify this field, it is defaulted to be in the $UCT. If you wish to override this 
default you would specify ‘CHAIN = (field, HCT)’. The field must be in either the $HCT or the 
$UCT. 


6 An example of how to define and chain a $UCT is in “Appendix A. Table Pairs Coding Example” on 
page 147. 
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PCE Tables ... 


e PCE Tables (Examples - JES2)... 


«= $PCETAB - table entry... 
A COUNTS = - fullword field name that contains two halfwords 
A first halfword is count of PCEs defined - filled in before $EXIT. 
4 second halfword is count of allocated PCEs 


4 specifies HCT field if TABLE = HASP 


QO specifies UCT field if TABLE=USER 
A&A MACRO= - mapping PCE work area macro 


4 1-8 characters 


A for documentation only 


A WORKLEN = - length of PCE work area for this PCE type 


The COUNTS operand tells JES2 how many processors of this type should be created. This field 
points to a two halfword field where the first halfword specifies how many processors to create and 
the second halfword is where the $PCEDYN service saves how many are operative at the moment. 
In the example, COUNTS=$NUMRDRS indicates that at label SNUMRDRS in the $HCT is 
located the two halfwords. The default location for the field is in the $HCT if the table is a JES2 
table and the $UCT if the table is an installation table. This can be overridden by specifying 
‘COUNTS = (field, HCTY if the field that you want to use is in the $HCT. 


The MACRO operand only documents what macro maps the PCE variable extension area. This 
mapping macro name can be from one to eight characters in length. In the example, 
MACRO = $RDRWORK, $RDRWORK is the name of the mapping macro for the reader vari- 
able extension area. | 


The WORKLEN operand tells JES2 how long the vanable extension area 1s for this processor type. 
$PCEDYN uses this to $}GETMAIN the $PCE and its extension in contiguous storage. In the 
example, WORKLEN = RDWLEN; RDWLEN 1s the equate for the length of the variable exten- 


sion area for the reader processor. 
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PCE Tables ... 


e PCE Tables (Examples - JES2)... 


» $PCETAB - table entry... 
A GEN= - specifies when $PCE should be generated 


A INIT - generate during init 
A DYNAMIC - generated and deleted after init 


A STATIC - do not generate 
A DISPTCH = - initial dispatching after PCE created 


A WARN - at init, $WAITed on HOLD, other times, dispatched 
immediately, at end of WARM Start Processing, all PCEs 
$POSTed for HOLD 


A INIT - PCEs dispatched immediately after JES2 initialization, 
concurrent with WARM START 


A WORK - $WAIT PCE on WORK 


The GEN operand tells JES2 when this PCE should be created. There are three values that can 
be specified; INIT, DYNAMIC, and STATIC. 


GEN = INIT indicates to JES2 that this processor should be generated during initialization, 
along with most of the JES2 processors. 


GEN = DYNAMIC indicates to JES2 that this processor should not be automatically gener- 
ated, but should be created through a specific $PCEDYN service call. Such processors may 
also be dynamically deleted. 


GEN =STATIC tells JES2 that this table is for documentation only. The Initialization PCE 
of JES2 is documented like this. 


The DISPTCH operand tells JES2 when the processor should be dispatched after it is created. 
There are three values that can be specified. These values are: 
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DISPTCH = WARM causes two actions to take place dependent on when the PCE is created. 


l. Ifthe processor is created during initialization, then the processor is }WAITed on HOLD. 
After WARM start processing is completed the processor will be $POSTed for HOLD 
and the processor will be given control. 


2. If the processor 1s created after WARM processing, the processor is immediately dis- 
patched. 


DISPTCH= INIT causes JES2 to give the processor control immediately after initialization, 
concurrent with WARM processing. For those processors attached after initialization, the 
processors will be dispatched immediately. 


DISPTCH = WORK causes JES2 to $WAIT the processor on WORK. Thus, the processor 
will not be dispatched until it is $POSTed for WORK. 
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PCE Tables ... 


e PCE Tables (Examples - JES2)... 


» SPCETAB - table entry... 


A PCEFLGS = - value to set PCEFLAGS byte field 


A FSS= - PCE type might run in FSS mode 


Q YES - larger of JES mode PCE work size and FSS mode work 
size for PCE 


A PCEID= - specifies value for PCEID field 


& first byte specifies type of device 


& second byte specifies identifier ~f PCE 


© $PCETAB TABLE= END - indicates end of table 


The operand PCEFLGS pnmes the PCE field PCEFLAGS when the PCE is created by 
$PCEDYN. The valid values that can be specified for this operand are: 


PCETRACE - processor 1s eligible for tracing 

PCEDSPXP - processor permanently exempt from non-dispatchability 
PCEDSPXT - processor temporarily exempt from non-dispatchability 
PCENWIOP - implicit S$WAITs in I/O processing should be prohibited 


The operand FSS indicates that the device associated with this PCE 1s a Functional Subsystem 
(FSS) device. If FSS= YES is specified, a larger base PCE 1s obtained. 


The PCEID operand specifies what values should be placed in the PCEID field in the PCE. This 
identifier field sets the type and identifier of the processor in the PCE. The first byte of the PCEID 
field specifies the type of processor. The JES2 types are: 


® 


Non-Device processor (x’00’) 

Local Special PCE (x’01’) 

Remote Special PCE (x’02’) 

Network Special PCE - indicates NJE or XFR JT/JR/ST/JR (x04) 
Internal Special PCE (x’08’) 

Print Special PCE (x’80’) 

Punch Special PCE (x’40’) 

XER Special PCE (x’20’) 
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The second byte of the PCE identifier field specifies the identifier of the processor. If only one value 
is specified for the PCEID (e.g., PCEID = value) then the specified value is placed as the identifier 
of the PCE. If you wish to specify your own PCE identifier you should start at 255 and work your 
way down. JES2 starts at 1 and increases. There are currently 30 PCE identifiers. These are de- 
fined in the $PCE macro. In the example, PCEID = (PCELCLID,PCERDRID) indicates that the 
PCE is a Local special PCE and its identifier is that of an Input processor. 


When TABLE= END is encountered, the table is closed. This indicates the end of the JES2 PCE 
table. All JES2-defined PCEs are defined within this single table. 
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An Installation PCE Table 


PCE Tables ... 


e PCE Tables (Examples - Installation) 


« Objective: 


A Create PCE to manage security calls 


A Create PCE without modifying JES2 


A Use PCE table installation-extensible function 


» This is one scheme to complete this objective, others exist 


In order to show how you would specify an installation PCE table, the remaining description of the 
PCE tables will step through creating an installation-defined security PCE. This security PCE, as 
it is implemented here, is not required to fulfill the security objective. This example is purely for 
illustration. 7 


Objective 


The objective is to create a PCE to manage security calls. You wish to achieve this without mod- 
ifying JES2 and to use the PCE tables as the means to define this PCE to JES2. 
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Required Pieces 


PCE Tables ... 


@ PCE Tables (Examples - Installation)... 


» Pieces consist of: 


Exit 0 


ai 


Module HASPXJO0O USER PCE TABLE 


| 


To achieve the objective, you will need to code four pieces. These pieces are: 
l. Exit 0 


As discussed in “Concepts” on page 6, there are two ways to link the installation table with 
JES2: 


a. The first of these is to link-edit the installation PCE table with the HASJES20 load 
module. This requires that the name of the installation table be USERPCET. 


b. If you do not wish to link-edit the installation PCE table with HASJES20 or do not wish 
to name the installation table USERPCET, then you must fill in the address of the in- 
stallation PCE table into the $MCT at field MCTPCETU. This is the second method. 
This method requires that you fill in the address before invoking the $PCEDYN service 
routine to create the processor. Depending on when you want the processor generated, 
you may fill in the address early in initialization or after JES2 is up and running. 


In this example, you will fill in the address of the PCE table early in initialization, specifically 
in exit 0. Therefore, an exit 0 1s required to load the module (if not already loaded) and resolve 
the address of the table. 


2. “UCT 


As has been indicated when examining the JES2 PCE table, there are certain operands that 

assume $UCT fields in the installation PCE table entries. Of course you may overnde these a 
assumptions, but the objective of this effort was to use the tables and not modify JES2. \ 
Therefore, a $UCT must be created that will hold certain values. 


3. Module HASPXJO00 
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Since you are coding a new JES2 processor, you must write the code that is the processor. In 
this example, the code will reside in the module HASPXJ00. This name was chosen because 
it is one of the reserved-for-installation-use names that JES2 has set up in the $MODMAP 
control block. In this way, you can link-edit this module with HASJES20 and have its address 
in $MODMAP and not have to do the load of this exit from exit 0. 


For this example, HASPXJO00 illustrates this function. However, the rest of the sample code 
will assume that this module is not in the HASJES20 load module and must be loaded by exit 
0. 


User PCE Table 


You will have to code a PCE table that includes an element for the processor. We will describe 
this installation table element in a step-wise fashion below. 
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Coding the Installation PCE Table 


PCE Tables ... 


e PCE Tables (Examples - Installation)... 


« Table and Operands: 
A Call PCE ’SCTY’ 


£ NAME=SCTY 


A For display in messages, SCWA use ‘SECURITY PROCESSOR’ 


& DESC =’SECURITY’ 


A SCTY PCE not associated with a DCT 


4 DCTTAB=*-* 


A PCE code located in module HASPXJOO 


4 MODULE = HASPXJ00 


In the figure above, you wanted to create a security PCE which would be called SCTY. Therefore, 
you specified “NAME=SCTY’. For display, the description to be issued was “SECURITY 
PROCESSOR’. Therefore you specified “DESC=SECURITY’. Remember that the word 
‘PROCESSOR’ is appended to the end of the value specified on the DESC operand. 


Since the security processor was not to be associated with a device, there was no DCT table to be 
specified so “DCTTAB= *-*’ was coded. MODULE= HASPXJO00 was coded since the name of 
the module to contain the processor code was HASPXJ00. 
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PCE Tables ... 


e PCE Tables (Examples - Installation)... 


» Table and Operands... 


A Entry point to module HASPXJ00 routine USCTPCE held in field 
UCTMSCTY in $UCT 


A ENTRYPT =UCTMSCTY 

A Field to hold addr of first SCTY PCE is UCTSYPCE in $UCT 
A CHAIN =UCTSYPCE 

A Field UCTSYNUM in $UCT will hold counts of PCEs 
4 COUNTS = UCTSYNUM 

A Mapping macro to PCE work area is $SCYWORK 


4 MACRO=$SCYWORK 


The field to hold the entry point address is in the $UCT. The name of the field is UCTMSCTY. 
It will hold the address of the routine USCTPCE. Therefore, we code 
‘ENTRYPT = UCTMSCTY’ on the $PCETAB. 


The $UCT field to hold the pointer to the first secunty PCE is UCTSYPCE. Thus, we code 
‘CHAIN = UCTSYPCE’ to tell JES2 the name of the chain field. Since the table element is in the 
installation table, the field will default to being in the $UCT. 


The COUNTS operand specifies where the $PCEDYN service routine is to find out how many 
PCEs of this type it may create and to keep track of how many it has created. This field defaults 
to being in the $UCT for the installation table, therefore the $UCT field that will hold the counts 
is UCTSYNUM. Thus, we specify ("COUNTS = UCTSYNUM’. 


Since this processor will need fields that are unique to the security type of processor, it will need its 
own variable extension area. The macro that we use to map this extension area is $SSCYWORK. 
This is documented in the $PCETAB by specifying ‘MACRO = $SCYWORK’. 
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PCE Tables ... 


e PCE Tables (Examples - Installation)... 


» Table and Operands... 
A Length of $SCYWORK field is defined by equate SCYLEN 
4 WORKLEN =SCYLEN 
A PCE created during init by JES2 


& GEN=INIT 


A PCE dispatched at end of WARM processing 


& DISPTCH=WARM 


The length of the variable extension area of the security PCE is defined via the equate SCYLEN > 
in the $SCYWORK macro. This is the value that we specify in the table: 
WORKLEN=SCYLEN. 


You have also decided that the processor should be generated during initialization when the other 
JES2 processors are generated. Therefore, we specify "GEN=INIT’ on the $#PCETAB macro to 
create the security processor. 


The processor should receive control after WARM processing. This assumes that the security 
processor will not be needed during WARM processing. To specify this, you will code 
‘DISPTCH = WARM‘ on the macro call. 
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PCE Tables ... 


e PCE Tables (Examples - Installation)... 


» Table and Operands... 
A Value of PCEFLAGS field preset by table 


A Valid values are: 


“PCETRACE - eligible for tracing 
PCEDSPXP - permanently exempt from 
non-dispatchability 
PCEDSPXT - temporarily exempt from 
non-dispatchability 
PCENWIOP - 1/O processing $WAITs 
prohibited 


& PCEFLGS =0 
A PCE will not run in FSS mode 


A FSS=NO 


The PCEFLGS operand specifies what initial value the PCE PCEFLAGS field should contain after 
it is created by $PCEDYN. If the initial state of the processor should be that it: 


e should be traced, then PCETRACE should be specified. 


e should be marked as permanently exempt from non-dispatchability, then PCEDSPXP should 
be specified. There are currently five JES2 processors that are marked as permanently exempt. 
These are: 


l. 


Z 
3 
4. 
5 


Asynchronous I/O Processor - this processor handles asynchronous I/O requests 
Communications Processor - processes operator commands 

Line Manager Processor - processes line related processing 

STIMER/TIMER Processor - processes asynchronous timer requests 


Checkpoint Processor - manages the checkpoint data sets 


If the installation processor is one that should never be marked non-dispatchable, then you 
should set this value. 


e should be marked as temporarily exempt from non-dispatchability, then PCEDSPXT should 
be specified. This value would be specified if some processing must be completed by this 
processor that would fail if the processor was marked non-dispatchable. | 


¢ cannot wait in the case of an I/O error, then you should specify PCENWIOP. 


In this example, the security processor has no special requirements, therefore, we code 
‘PCEFLAGS = 0’. 


Since the security processor will not run in FSS mode, ‘FSS = NO’ will also be specified. 
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PCE Tables ... 


e PCE Tables (Examples - Installation)... 


» Table and Operands... 
A Identifier of PCE determined by two one-byte fields 


4 First one-byte field determines type of device 


0 - non-device processor 

PCELCLID - local special PCE identifier 

PCERJEID - remote special PCE identifier 

PCENJEID - netwk special PCE id, | 
indicates NJE or XFE 
JT/JR/ST/SR 

PCEINRID - intnl special PCE identifier 

PCEPRSID - printer special PCE identifier 

PCEPUSID - punch special PCE identifier 

PCEXFRID - XFR special PCE identifier 


4 Second one-byte field sets PCE identifier 
4 Installation PCE identifiers start at 255 and decrement 


A PCEID =(0,UPCESCTY) 


The PCEID operand specifies the type and identifier of the processor. The type for the security 
processor is zero, since the processor is a non-device processor. The identifier of the processor is 
255. This is because installation-specified identifiers should start at 255 and decrease since JES2 
processors start at 1 and work their way up. We code an equate in the $UCT named UPCESCTY 
and set it to 255. Therefore, we specify the operand as ’PCEID=(0,UPCESCTYY. 


44 A GUIDE User Group Presentation 


—_— 


SES > 


Resulting PCE Table 


PCE Tables ... 


e PCE Tables (Examples - Installation)... 


USERPCET SPCETAB TABLE=USER 


SCTYPCET SPCETAB NAME=SCTY,DESC=’ SECURITY’ , 
DCTTAB=*-*, 
MODULE=HASPX JOO, 
ENTRYPT=UCTMSCTY , 
CHAIN=UCTSYPCE, 
COUNTS=UCTSYNUM, 
MACRO=SSCYWORK , 
WORKLEN=SCVLEN, 
GEN=INIT ,DISPTCH=WARM, 
PCEFLGS=0,FSS=NO, 
PCEID=C0,UPCESCTY > 


S$PCETAB TABLE=END 


The figure above shows the resulting installation PCE table to add a security processor to JES2. 
The table is begun with a TABLE= USER to tell JES2 that this is an installation table. The name 
of the processor will be SCTY and we will call it “SECURITY PROCESSOR’. The code for the 
processor will reside in the HASPXJO0 module with the entry point address contained at the field 
UCTMSCTY in the $UCT. The first security processor is chained from the UCTSYPCE field in 
the $UCT. The count of how many security processors that can be generated and the count of how 
many have already been created will reside at the two halfword field UCTSYNUM in the $UCT. 


Security processors will require their own variable extension area that is mapped by macro 
$SCYWORK and is SCYLEN in length. The processors should be generated during JES2 initial- 
ization but not dispatched until after WARM processing. No default PCE characteristics need be 
set (1.e., PCEFLGS is equal to zero) and the PCE is not an FSS supported processor. The 
processor’s identifier is 255, as set by the equate UPCESCTY. The table is delineated by the 
TABLE=END operand. 
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Coding the Other Pieces 


PCE Tables ... 


e PCE Tables (Examples - Installation)... 


» Required Pieces 


A HASPXJO00 - module that holds PCE code 


A $SCYWORK - macro that maps PCE extension that is obtained 
with the PCE 


A SCYLEN - equate that defines length of $SCYWORK extension 
A $UCT - macro contains fields: 


‘A, UCTMSCTY DC A(*-*) ADDR OF ENTRYPT 
A UCTSYPCE DC A(*-*) ADDR OF SCTY PCE 
A. UCTSYNUM DC H’1’,H’0" 

A. UPCESCTY EQU 255 ID OF SCTY PCE 


A $DRSCTY EQU 63 DISP SEC RESOURCE 


Now that you have completed the installation PCE table, the other required pieces and fields may 
be defined. You will have to write a HASPXJ00 module that holds the PCE code. A macro must 
be created called $SCYWORK that will map the PCE extension. A field named SCYLEN 1s re- 
quired within the macro to define the length of the extension area needed. 


In the installation-defined $UCT, several fields must be coded. The address of the entry point for 
the HASPXJ00 module for the installation PCE is held in the UCTMSCTY field. The address of 
the first security PCE is chained from the UCTSYPCE field. The UCTSYNUM field is a two 
halfword field where the first field defines the number of security PCEs that are to be created and 
the second indicates to $#PCEDYN how many have been created. 


Finally, two equates must be defined. The first is the identifier of the installation security PCE (set 
at 255) and a dispatching security resource. The $DRSCTY equate tells the PCE that some work 
is ready for it to process. The installation PCE will ‘$WAIT SCTY’ (which will result in the PCE 
being put on the resource queue of 63) for work. When there is work for it to do, it is $POSTed 
for SCTY (i.e., $3DRSCTY = 63) and put on the ready queue. 
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PCE Tables ... 


e PCE Tables (Examples - Installation)... 


» Required Pieces... 


A Installation PCE Table 


4. Defined as above 


A Exit 0 


&, Obtain $UCT and place address in $HCT 
4 Initialize the $UCT 


& Place Installation PCE table address in field MCTPCETU in 
$MCT in HASPTABS 


The last two pieces that are required are the installation PCE table, as coded above, and the code 
for exit 0. The exit 0 code is required to do three things. 


I. 
2. 


It must obtain the $UCT and place the $UCTs address in the $HCT. 


It must initialize the $UCT fields. The fields that must be initialized include, at least, the 
UCTMSCTY, UCTSYPCE, and the first halfword of UCTSYNUM. 


Finally, it must place the installation PCE table address in the MCTPCETU field in the 
$MCT in module HASPTABS. 


The code that is contained in “Appendix A. Table Pairs Coding Example” on page 147 is the code 
as an installation would be required to code it. This code includes: 


Exit 0 that obtains the $UCT, places the $UCT address in the $HCT, initializes the $UCT, 
and places the installation PCE table address in the $MCT. 


The HASPXJ00 module contains, among other items that we will describe shortly, the PCE 
code and the installation PCE table. 


The macros for the $UCT and $SCYWORK. In addition, a SUSERCBS macro extends the 
$MODULE macro so that you can use installation-created macros without modifying the 
$MODULE macro. 
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DTE Tables 


What Is a DTE Table? 


DTE Tables 


e Daughter Task Element (DTE) Tables 


» Used to 


A Add Installation subtasks to JES2 system 


A Override HASP-defined subtasks in JES2 system 


» HASP-defined DTE tables reside in HASPTABS 


» See MVS/Extended Architecture SPL: JES2 User 
Modifications and Macros(LC23-0069) 


01/88 . 41 


Daughter Task Elements (DTEs) are JES2 control blocks that represent subtasks in JES2. As 
PCEs represent JES2 processors in the main task environment, DTEs represent JES2 subtasks in 
the subtask environment.’ Subtasks are used in JES2 to do work that may require MVS WAITs. 
MVS WAITs are not tolerated in the JES2 main task, so therefore, subtasks are obtained by JES2 
to do this type of work. | 


As PCEs are tabular via the $PCETABs, the DTEs are tabular via the $DTETABs. This provides 
you the capability to add installation-defined subtasks and to override JES2-deiined subtasks. It 1s 
not recommended that you delete JES2-defined subtasks. 


The tables that define the JES2 subtasks reside in the module HASPTABS. Some of the following 
information on DTEs can be found in SPL: JES2 User Modifications and Macros. 


7 The term “‘DTE’ refers either to a JES2 subtask or to the control block which represents the subtask. 
Where the distinction is important we have tried to add terms like ‘subtask’ or ‘control block’ to-the term 
‘DTE’ where it occurs. 
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DTE Tables ... 


¢ Daughter Task Element (DTE) Tables... 


» JES2 control block to represent subtasks of the JES2 main 
task 


» Use MVS dispatching methods to manage communication 
between JES2 main task and subtask 


The DTE is the control block that represents the subtask. This control block is available to the 
Main Task (a PCE processor) and the subtask. Thus, this control block assists communication 
between the two environments. 


In order to serialize the communications between the main task and the subtask, normal MVS 
dispatching methods should be followed. This involves the use of $WAITs and MVS POSTs from 
the main task and MVS WAITs and POSTs from the subtask. Never issue an MVS WAIT from 
the JES2 main task and never issue a JES2 $WAIT from a JES2 subtask. 
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DTE Control Blocks and Macros 


_ DTE Tables ... 


e DTE Tables (Related Control Blocks and Macros). 


» $MCT table fields: 


MCTDTETU DC V{USERDTET) USER TBLE 


MCTDTETH DC V(HASPDTET) HASP TBLE 


» $DOTETAB macro 


A Builds DTE tables and entries 


A Maps DTE table entries 


=» $DTEDYN macro 


A Used to dynamically attach, detach a Subtask 


A Invokes $DTEDYN routine 


The table pair which points to the DTE tables is located in the $MCT. The field MCTDTETU 
— will contain the address of the installation table, if such a table exists. If you want to link-edit your 
table with JES2 you must name the table USERDTET and link-edit it with HASJES20. The 
JES2-defined DTE table is pointed to from the $MCT field MCTDTETH and is named 
HASPDTET. 


To aid in creating the DTE tables, JES2 supplies a macro named $DTETAB. This macro builds 
both the JES2 and installation tables and table elements. This macro also contains the mapping 


macro for the DTE table and element. We will describe this macro and its operands more thor- 
oughly below. 


JES2 provides a mechanism to dynamically attach and detach subtasks via the $DTEDYN service. 


This service is invoked with the use of the $DTEDYN macro. The service routine makes use of 
the DTE tables for attaching and detaching of subtasks (DTEs). 
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DTE Tables ... 


e DTE Tables (Related Control Blocks and Macros)... 


» $GETABLE macro 


A Used to return table entries of USER/HASP table pairs 


A To obtain DTE Table, use TABLE=DTE 


» $DTE control block 


A Defines JES2 subtasks 
A Contains fields required by all subtasks within JES2 


A May have a variable length extension - subtask specific 
information 


A Contains an OS-style save area at front 


The $GETABLE macro invokes the $GETABLE service routine that is located in the module 
HASPTABS. This service obtains a table element from the user or JES2 table. To obtain a DTE 
table, you would code the TABLE=DTE operand. This macro will return the table element of 
the specified ID or, if LOOP 1s specified, it will return the next table element after the specified ID. 


The major control block for adding and modifying of subtasks is the DTE (Daughter Task Ele- 
ment). DTEs represent and define JES2 subtasks. This control block contains fields that are re- 
quired on a subtask basis within the JES2 subtasks. The DTE is composed of a common section 
(all JES2 subtask DTEs contain this common section) and an optional variable length section that 
is unique between subtask types and contain subtask-specific information. The subtask names are: 


e HASPIMAG 
e HOSALLOC 
e HOSPOOL 

e HASPACCT 
e HASPVTAM 


e HASPWTO 
e HOSCNVT 
e HASPOFF 


© HASPCKAP (added in 2.2.0) 


The common section includes an OS-style save area at the front. This is pointed to by R13 in the 
JES2 subtask (.e., it points to the DTE with the OS-style save area in the front) which is an 
available save area. 
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DTE Tables ... 


e DTE Tables (Related Control Blocks and Macros)... 


» $DTE control block... 


A Other fields 


4 $STABNDA - General subtask ESTAE routine 
4 DTESTID - subtask identifier 

‘4, DTEVRXAD - VRA exit routine address 

4, DTERTXAD - Retry routine address 


2 DTEESXAD - Clean-up routine address 


There are four fields that are used for subtask recovery. These fields are: 


$STABNDA - this is a field in the $HCT that contains the address of the general subtask re- 
covery routine. If you code an ESTAE (highly recommended) you should use this routine as 
the recovery routine. This general recovery routine will take three “exit” calls, depending upon 
whether the following three fields are non-zero. 


DTEVRXAD - this is a field in the DTE that contains the address of a VRA “exit” routine. 
This routine will receive control from the JES2 general subtask recovery routine to complete 
the variable recording area (VRA) in the SDWA. In this way, the data that is specific to this 
subtask can be saved. | 


DTERTXAD - this is a field in the DTE that contains the address of a retry routine. This 
routine will receive control to attempt to retry. The general JES2 recovery routine issues a 
SETRP to a general retry routine. This general retry routine will then give control to the 
specified retry routine for this subtask. The subtask retry routine should issue a $SETRP to 
a resumption point or percolate. If the subtask is to retry or percolate, the retry routine should 
prepare for the event. | 


DTESXAD - this is another field in the DTE that contains the address of a clean-up routine. 
This routine will receive control from the JES2 general subtask recovery routine to attempt 
subtask specific clean-up. There are two valid return codes from this recovery routine. 


1. 0 - continue normal recovery, clean-up successful 


2. 4- unrecoverable subtask error, abend JES2 main task via a CALLRTM 


Also included in the DTE is the field DTESTID which contains the subtask identifier. We will 
present more information on this identifier shortly. | 
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DTE Tables ... 


® DTE Tables (Related Control Blocks and Macros)... 


» DTE Chain Heads 


A Located in $HCT 
A Zero if no subtask for that type exist 


A Chain DTE Heads: 


A $DTEIMAG - Image DTE 
2 $DTEALOC - Allocate DTE 
4 $DTESPOL - Spool DTE 

2 $DTESMF - SMF DTE 

& $OTEVTM - VTAM DTE 

A $DTEWTO - WTO DTE 

& $DTECNVT - Convert OTE 
A $DTEOFF - Offload DTE 


A $DTECKAP - Checkpoint application copy 


Just as there were pointers in the $HCT for the JES2 processors (PCEs) for each type of processor, 
there are pointers in the $HCT for the JES2 subtasks (DTEs) for each type of subtask. If the chain 
head is zero, then no subtasks of that type exists. The chain heads are: 


e $DTEIMAG - points to the image subtask(s) 

e¢  $DTEALOC - points to the allocation subtask 

e¢ $DTESPOL - points to the spool subtask(s) 

e $DTESMEF - points to the SMF subtask 

e $DTEVTM - points to the VTAM subtask 

e $DTEWTO - points to the WTO subtask 

e $DTECNVT - points to the converter subtask(s) 

e  $DTEOFF - points to the offload subtask(s) 

e  $DTECKAP - points to the checkpoint application copy subtask (new in 2.2.0) 


We will describe the method for pointing to the installation subtask in the following foils. 
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A JES2 DTE Table 


DTE Tables ... 


e DTE Tables (Examples - JES2) 


HASPDTET SOTETAB TABLE=HASP 


SDTETAB NAME=. oe 


SOTETAB NAME=CONVERT, 
ID=DTEIDCNV, ' 
EPNAME=HOSCNVT, 
EPLOC=MAPCNVA, 
HEAD=SDTECNVT , 
WORKLEN=DCNVLEN, 
GEN=NO, 

STAE=NO, 
SZERO=NO 


SDTETAB NAME=. oe 


SDTETAB TABLE=END 


The figure above is an example of what the JES2 subtask (DTE) table looks like. The table 1s 
delimited by a TABLE = HASP (to start the table) and a TABLE=END (to end the table). The 
table element shown represents all the information that JES2 needs to define a JES2 converter 
subtask. This is the table element that is passed to the $DTEDYN service to create the converter 
DTE. Notice that the name of the DTE table is HASPDTET, the same as that specified in the 
V-type address constant in the $MCT. 


The following discussion will describe each operand on the $DTETAB macro and how it should 
be specified. 
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DTE Tables ... 


e DTE Tables (Examples - JES2)... 


» SOTETAB TABLE=HASP - invoke $DTETAB macro to build 
JES2 DTE table 


» $DTETAB - invokes $DTETAB macro to build DTE Table 
entry for CNVT DTE. 


A NAME= - DTE name 


4 1 - 8 characters 


4. used for JES2 messages 


4 ID= - equated subtask identifier 


4 JES2 identifiers start at 0 and increase 


2. Installation identifiers start at 255 and decrease 


The JES2 tables are started by specifying “TABLE= HASP’. This indicates to JES2 that this table 
is a JES2 table. You would specify “TABLE= USER’ to indicate that the table is an installation 
coded table. Whether it is a JES2 or installation table determines some default values for the 
EPLOC and HEAD $DTETAB operands. We will discuss these operands later. Specifying 
TABLE= HASP or TABLE= USER is the means JES2 provides to indicate the start of the table 
(TABLE = START) as discussed in “Concepts” on page 6. 


When you specify $DTETAB with operands other than TABLE=, the macro generates a table 
element. In the example above, the table element that is generated is for the converter subtask. 


The NAME operand specifies a one- to eight-character name. JES2 messages use this name. The 
ID operand specifies an equated numeric value. JES2 identifiers start at 0 and increase. Installation 
identifiers start at 255 and decrease. There are currently nine JES2 subtask types. 
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DTE Tables ... 


e DTE Tables (Examples - JES2)... 


« $SOTETAB - table entry... 


A EPNAME = - entry point name used on MVS IDENTIFY macro call 


A EPLOC= - name of fullword field holding subtask entry point 
addr 


A specifies MODMAP field if TABLE =HASP 


A specifies $UCT field if TABLE =USER 


The EPNAME operand specifies the name of the subtask entry point. The MVS IDENTIFY 
macro uses this. The EPLOC operand points to the fullword field that holds the subtask entry 
point address. If the DTE table is a JES2 table, the default location for this entry point address 1s 
in MODMAP. Ifthe DTE table 1s an installation table (i.e., TABLE = USER), the default location 
for this entry point address is in the $UCT. This default can be overridden by specifying 
‘EPNAME = (field, MODMAP)’. The field must be in either MODMAP or the $UCT. 
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DTE Tables ... 


e DTE Tables (Examples - JES2)... 


« SDOTETAB - table entry... 


A HEAD= - fullword field name used to point to first DTE of type 
within $OTEORG DTE chain 


A specifies $HCT field if TABLE =HASP 


A specifies $UCT field if TABLE =USER 


A WORKLEN= - length of DTE work area for this DTE type 


The HEAD operand is similar to the CHAIN operand on the $PCETAB. This operand points to 
the fullword field used to point to the first DTE of this type. JES2 will chain the initial DTE of 
this type from the specified field. All DTEs can be run by starting at the SDTEORG in the $HCT. 
In the example the first converter subtask can be found by obtaining the address in the 
$DTECNVT field in the $HCT. DTEPREV and DTENEXT are fields used to chain to the next 
DTE. If you specify this field, it is defaulted to be in the $UCT. If you wish to overnide this de- 
fault, you would specify ‘HEAD = (field, HCT)’.. The field must be in either the $HCT or the 
$UCT. 


Just as there was a variable extension area off of PCEs, there are variable extension areas off of 
DTEs. The size of these extension areas can be variable between subtask types. Therefore, you 
specify the size for these extension areas in the $DTETAB via the WORKLEN operand. The 
$DTEDYN service uses this value to $GETMAIN the DTE and its extension in contiguous stor- 
age. In the example, WORKLEN = DCNVLEN, DCNVLEN is the equate for the length of the 


variable extension area for the converter subtask. 
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DTE Tables ... 


e DTE Tables (Examples - JES2)... 


» $OTETAB - table entry... 
a GEN= - specifies when DTE should be generated 


4 YES - indicates subtask should be automatically started 


_& NO - indicates subtask dynamically created via $DTEDYN 


A STAE= - specifies if STAE parm on MVS DETACH macro should 
be issued 


& STAE on DETACH indicates if ESTAE exit should get control if 
subtask detached before terminated 


A“ YES - indicates STAE parm specified, implies MVS WAIT if 
WAIT = parm not specified on SDTEDYN 


A NO - indicates STAE parm not specified (default NO} 


The GEN operand specifies when the subtask should be generated. GEN = YES indicates that the 
subtask should be automatically started. GEN = NO indicates that the subtask 1s dynamically cre- 
ated via a SDTEDYN call. In the example, you specify GEN = NO since the converter subtask is 
dynamically created through a $DTEDYN call by the converter processor when the subtask is 
needed and it is not attached. 


The STAE operand indicates whether the STAE parameter should be specified on the MVS DE- 
TACH macro. If it is (ie., STAE= YES), then the ESTAE exit will get control if the subtask de- 
taches before it is terminated. If you specify STAE= YES this implies an MVS WAIT if WAIT = 
parameter is not specified on the $DTEDYN macro which creates the subtask. If you specify 
STAE= NO, then the STAE parameter will not be generated on the MVS DETACH macro. 
STAE= NO is the default. 
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( DTE Tables ... 


e DTE Tables (Examples - JES2)... 


» $DTETAB - table entry... 


4 SZERO= - indicates if subtask shares subpool 0 (default YES) 


» $OTETAB TABLE= END - indicates end of table 


The final operand on the $DTETAB macro is the SZERO operand. This operand tells JES2 
whether this subtask should share subpool 0. The default is SZERO=YES. In the example, 
SZERO = NO was specified to say that the converter subtask cannot share subpool 0. 


When the TABLE= END 1s encountered, the table is closed. This indicates the end of the J ES2 
DTE table. All JES2-defined subtasks are defined within this single table. 
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An Installation DTE Table 


| DTE Tables ... 


e DTE Tables (Examples - Installation) 


» Objective: 


4 Create DTE to issue SAF call 
4 Create DTE without modifying JES2 


A Use DTE table installation-extensible function 


« This is one scheme to complete this objective, others exist 


In order to show how you would specify an installation DTE table, we will step through the cre- 
ation of an installation-defined security subtask. The security DTE is required to fulfill our security 
objective since the SAF call can result in an MVS WAIT. 


Objective 
The objective is to create a DTE to issue the SAF call on behalf of a security processor (or, as it 


turns out, any processor). The installation wishes to achieve this without modifying JES2 and to 
use the DTE tables as the means to define this DTE to JES2. 
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Required Pieces 


DTE Tables ... 


e DTE Tables (Examples - Installation)... 


» Pieces consist of: 


To achieve the objective, you will need to code four pieces. These pieces are: 
l. Exit 0 


As was discussed in “Concepts” on page 6, there are two ways to link the installation table 
with JES2: 


a. The first of these is to link-edit the installation DTE table with the HASJES20 load 
module. This requires the name of the installation table be USERDTET. 


b. If you do not wish to link-edit an installation DTE table with HASJES20 or does not 
wish to name the installation table USERDTET, then you must fill in the address of the 
installation DTE table into the $MCT at field MCTDETTU. This is the second method. 
This method requires that you fill in the address prior to the need to invoke the 
$DTEDYN service routine to create the subtask. Depending on when you will have the 
processor generated, you may fill in the address early in initialization or after JES2 is up 
and running. 


In this example, you will fill in the address of the DTE table early in initialization, specifically 
in Exit 0. Therefore, you require an Exit 0 that will load the module (if not already loaded) 
and resolve the address of the table. 


2. UCT 


As has been indicated when examining the JES2 DTE table, there are certain operands that 
assume $UCT fields in the installation DTE table elements. Of course, you may override these 
assumptions, but the objective of this effort was to use the tables and not modify JES2. 
Therefore, a $UCT must be created that will hold certain values. 
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Module HASPXJ00 


Since you are coding a new JES2 subtask, you must write the code that is the subtask. In this 
example, the code resides in the module HASPXJ00. This name is one of the reserved-for- 
installation-use names that JES2 has in the $}MODMAP control block. In this way, you can 
link-edit this module with HASJES20 and have its address in $MODMAP and not have to 
do the load of this exit from Exit 0. 


4. User DTE Table 


You will have to code your own DTE table to include an element for the particular subtask. 
We will describe how to create this installation table element in the following section. 


Yaga 
“i 
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( Coding the Installation DTE Table 


DTE Tables ... 


e DTE Tables (examples - Installation)... 


» Table and Operands: 


A Call Subtask ‘SECURITY’ 


4 NAME =SECURITY 


A Id of Subtask determined by installation 


4 Instatlation DTE identifiers start at 255 and decrease 


4 ID=UDTESCTY 


In the figure above, you wanted to create a security subtask which would be called SECURITY. 
Therefore, NAME=SECURITY 1s specified to have the subtask called SECURITY in JES2 


messages. 
The identifier of the processor is 255. This is because installation specified identifiers should start 
at 255 and decrease since JES2 subtask identifiers start at 0 and work their way up. There is an 
equate specified in the SUCT named UDTESCTY set to 255. Therefore, we specify the operand 
for the identifier as ‘ID = UDTESCTY’. 
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DTE Tables ... 


e DTE Tables (Examples - Installation)... 


» Table and Operands... 
A Entry point to module HASPXJ00 will be USCTDTE 


4 EPNAME=USCTDTE 


A Entry point to module HASPXJO0 held in field UCTMDSCY in 
$UCT 


& EPLOC =UCTMDSCY 


A Field to hold addr of first SCTY DTE will be UCTSYDTE in $UCT 


& HEAD=UCTSYDTE 


The name of the entry point to the subtask code in module HASPXJ00 is USCTDTE. Therefore, 
we code ‘EPNAME= USCTDTE’ on the $DTETAB to tell JES2 to use USCTDTE on the MVS 
IDENTIFY call. The field to hold the entry point address is in the $UCT. The name of the field 


is UCTMDSCY. It will hold the address of the routine USCTDTE. Therefore, we code © 


‘EPLOC = UCTMDSCY’ on the $DTETAB. The $UCT field to hold the pointer to the first se- 
curity subtask is UCTSYDTE. Thus, we code “HEAD= UCTSYDTE?” to tell JES2 the name of 
the chain field. Since the table element is in the installation table, the specified field will default to 
being in the $UCT. 
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i | _ DTE Tables ... 


e DTE Tables (examples - Installation)... 


s Table and Operands... 
A Length of $SCDWORK macro is defined by equate SCDLEN 
4 WORKLEN=SCDLEN 
A Subtask created by SCTY PCE dynamically 
& GEN=NO 


A Subtask should not be detached with the STAE operand specified 
on the DETACH 


4 STAE=NO 
A Subtask shares SUBPOOL 0 


& SZERO= YES 


01/88 97 


The length of the variable extension area of the security subtask is defined via an equate called 
SCDLEN in macro $SCDWORK. This is the value that we specify in the table: 
WORKLEN=SCDLEN. 


You have also decided that the processor should not be generated automatically. Therefore, we 
specify “GEN = NO’ on the $DTETAB macro to indicate that the subtask is created dynamically 
via a call to S$DTEDYN. | 


Also, you do not wish the subtask to be detached with the STAE operand specified on the MVS 
DETACH call. Thus, we specify ‘“STAE = NO’. 


You would like the subtask to share subpool 0, so you specify ‘SZERO = YES’. 
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Resulting DTE Table 


DTE Tables ... 


e DTE Tables (Examples - Installation)... 


USERDTET SDTETA8 TABLE=USER 


SDTETAB NAME=SECURITY, 
IO=UDTESCTY, 
EPNAME=USCTDTE, 
EPLOC=UCTMOSCYV, 
HEAD=UCTSYDTE, 
WORKLEN=SCOLEN, 
GEN=NO, 

STAE=NO, 
SZERO=VES 


SDOTETAS TABLE=END 


The figure above shows the resulting installation DTE table to add a security subtask to JES2. 
The table is begun with a TABLE= USER to tell JES2 that this is an installation table. The name 
of the subtask is SECURITY. The identifier of the subtask is 255, as defined by the equate 
UDTESCTY. The code for the subtask resides in the module HASPXJO0 and has the entry point 
name USCTDTE. Its entry point address is in field UCTMDSCY in the $UCT. 


The first security subtask is chained from the $UCT field UCTSYDTE. 


The security subtask will require its own variable extension area to the DTE that is mapped by the 
macro $SCDWORK with the length of SCDLEN. The subtask is generated through a specific 
$DTEDYN, so it will not be generated during initialization. The subtask will not be detached with 
the STAE option and the subtask may share subpool 0. 


The table is delineated by the TABLE=END operand of the $DTETAB macro. 
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Coding the Other Required Pieces 


DTE Tables ... 


e DTE Tables (Examples - Installation)... 


» Required Pieces 


A HASPXJ00 - module that holds subtask code with entry point 
USCTDTE 


A $SCDWORK - macro that maps DTE extension obtained with DTE 


4 SCDLEN - equate defines length of extension 


A $UCT - macro contains fields: 


& UDTESCTY EQU 255 ID OF SCTY DTE 
4 UCTMDSCY DC A(*-*) ADDR OF ENTRYPT 


4, UCTSYDTE OC A(*-*) ADDR of SCTY DTE 


Now that you have completed the installation DTE table, the other required pieces may be defined. 
You will have to wnte a HASPXJ00 module that holds the DTE subtask code. A macro must be 
created called $SCDWORK that will map the DTE extension. An equate named SCDLEN is re- 
quired within the macro to define the length of the extension area needed. 


In the installation-defined UCT, two fields must be coded. The address of the entry point for the 
HASPXJ00 module for the installation DTE is in the UCTMDSCY field. The address of the first 
security DTE is chained from the UCTSYDTE field. Finally, we must set an equate for the iden- 
tifier of the subtask. We specify the equate UDTESCTY with a value of 255. 
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DTE Tables ... 


e DTE Tables (Examples - Installation)... 


«» Required Pieces... 
A Installation DTE Table 
A Defined as above 
A Exit 0 
4, Obtain $UCT and place address in $HCT 


A Initialize the $UCT 


4 Place Installation DTE table addr in field MCTDTETU in $MCT 
in HASPTABS 


The last two pieces that are required are the installation DTE table, as coded above, and the code 
for exit 0. The exit 0 code is required to do three things: 


1. It must obtain the $UCT and place the $UCT’s address in the $HCT. 
2. It must initialize the $UCT. 


3. Finally, it must place the installation DTE table address in the MCTDTETU field in the 
$MCT in module HASPTABS. 


The code that is contained in “Appendix A. Table Pairs Coding Example” on page 147 1s the code 
as you would be required to code it. This code includes: 


e Exit 0 that obtains the $UCT, places the $UCT address in the $HCT, initializes the $UCT, 
and places the installation DTE table address in the $MCT. 


e The HASPXJ00 module contains, among other items that we will describe shortly, the DTE 
code and the installation DTE table. 


e The macros for the $UCT and $SCDWORK. Also, a $USERCBS macro extends the 


$MODULE macro so that you can use installation-created macros without modifying the 
$MODULE macro. 7 
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TID Tables 


What Is a TID Table? 


TID Tables 


e Trace Id Tables (TIDTAB) 


» Used to 


A Add Installation trace identifiers to JES2 system 


A Override HASP-defined trace identifiers in JES2 system 


s HASP-defined TIDTAB tables reside in HASPTABS 


» See MVS/Extended Architecture SPL: JES2 User 
Modifications and Macros (LC23-0069) 


The Trace Id (TID) tables are used to add installation trace identifiers to a JES2 system or to 
override JES2-defined trace identifiers in JES2. Notice that deleting a JES2 trace identifier is not 
listed. This is because we recommend you do not delete any JES2 trace identifiers. 


The JES2-defined TID tables reside in the JES2 module HASPTABS. Some of the following in- 
formation can be found in SPL: JES2 User Modifications and Macros. 


The TID tables are perhaps the simplest and least complete of the JES2 tables. Some of the 
‘Snterfaces” need additional work. However, the function provided is useful and recommended over 
alternatives such as in-line modifications to JES2 source code. 
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TID Control Blocks and Macros 


TID Tables ... 


e Trace Id Tables (Related Control Blocks and Macros) 


» $MCT table fields: 


MCTTIDTU DC V(USERTIDT) USER TBLE 


MCTTIDTH DC Vi(HASPTIDT) HASP TBLE 


« $TIDTAB macro 


A Builds TIDTAB tables and entries 
A Maps TIDTAB table entries 


A Defines Trace identifiers for the HASP $TRACE Facility 


The table pair which points to the TID tables is located in the $MCT. The field MCTTIDTU 
will contain the address of the installation table, if such a table exists. If you want to link-edit the 
table with JES2 you must name the table USERTIDT and link-edit it with HASJES20. The 
JES2-defined TID table is pointed to from the $MCT field MCTTIDTH and is named 
HASPTIDT. 


To aid in creating TID tables, JES2 supplies a macro named $TIDTAB. This macro builds both 
the JES2 and installation tables and table elements. This macro also contains the mapping macro 
for the TID table and element. We will describe this macro and its operands more thoroughly 
below. 


The $TRACE facility is the user of the TID tables. It uses the tables to determine what identifiers 
are valid and what formatter routines will receive control (see “A JES2 TID Table” on page 74). 
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TID Tables ... 


e Trace Id Tables (Related Control Blocks and Macros)... 


=» $TRACE macro 


A Used to allocate JES2 trace table entry in an active trace table 


A Invokes the JES2 event trace facility 


» $GETABLE macro 


A Used to return table entries of USER or HASP table pairs 


A To obtain Trace Table, use TABLE=TID 


» $TLGWORK control block 


A Contains fields specific to Event Trace Log Processor. 
(HASPEVTL) 


A Work area extension for HASPEVTL Processor (PCE) 


The $TRACE executable macro allocates a JES2 trace table entry in an active trace table and re- 
turns its address. Optionally, STRACE initializes the Trace Table Entry (TTE) based upon pa- 
rameters passed. The JES2 event trace facility is called to perform the TTE allocation. 


$TRACE can be specified anywhere in the JES2 system (including the HASPSSSM load module) 
except in routines running as disabled interrupt exits (for example, an IOS appendage). R13 must 
point to a usable OS-style save area. Be certain to also code the $TRP macro on the $MODULE 
statement to provide the required mapping. Refer to SPL: Modifications and Macros for a detailed 
description on the use of this macro. 


As with the PCETABs and DTETABs, access can be obtained to the TIDTABs via the 
$GETABLE macro. The $GETABLE macro invokes the $GETABLE service routine that is lo- 
cated in the module HASPTABS. This service obtains a table element from the user or JES2 table. 
To obtain a TID table, you would code the TABLE=TID operand. This macro will return the 
table element of the specified ID or, if LOOP is specified, it will return the next table element after 
the specified ID. 


You will also need to specify $STLGWORK. This is the macro that maps the Event Trace Log 
processor variable extension area. This macro is needed because it contains fields that are specific 
for the processor. They will be needed by the installation format routines (which we will describe 
later). 
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TID Tables ... 


® Trace Id Tables (Related Control Blocks and Macros)... 


« TTP (Trace Table Prefix) Dsect 


A Describes the trace table 


A Dsect within the $TTE macro 


« $TTE (Trace Table Entry) Control Block 


A Used to describe trace data elements in table 


A Represents the actual data in the trace table 


Since the trace interface is not well-defined and is rather primitive, it is necessary to understand 
some of the internal structures of the primary control blocks. These control blocks include the 
Trace Table Prefix (TTP) and the Trace Table Entry (TTE). The TTP describes the entire trace 
table while the TTE describes elements within the trace table. The next foil illustrates the TTP and 
the TTE. 
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TID Tables ... 


e Trace Id Tables (Related Control Blocks and Macros)... 


In the illustration above, there are two trace tables. Both contain Trace Table Prefixes. The TTP 
is made up of basically three pointers. The first pointer points to the previous trace table, the sec- 
ond pointer points to the end of the table, and the final pointer points to the next available spot in 
the trace table. 


Trace tables are made up of as many TTEs (Trace Table Elements) as will fit in the trace table. 
The TTEs are not of a set size, but are the size as was specified on the $TRACE macro call. The 
front of the TTE contains the fields mapped by the $TTE macro that describe the data contained 
in the TTE. 
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A JES2 TID Table 


TID Tables ... 


e TID Tables (Examples - JES2) 


HASPTIOT STIDTAB TABLE=HASP 


STIDTAB ID=... 


$TIOTAB ID=001, 
FORMAT=TROUTOOL], 
NAME=SSAVE 


S$TIOTAS ID=... 


S$TIDTAB TABLE=END 


The figure above illustrates what the JES2 TID table looks like. The table element shown repres- 
ents all the information that JES2 needs to define JES2 trace identifier 1 for the tracing of $SAVEs. 
This is the table element that is passed to the STRACE facility. Notice that the name of the TID 
table is HASPTIDT, the same as that specified in the V-type address constant in the $MCT. 


The following describes each operand on the $TIDTAB macro and tells how it should be specified. 
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TID Tables ... 


e TID Tables (Examples - JES2)... 


» $TIDTAB TABLE = HASP - invoke $TIDTAB macro to build 
JES2 Trace !D (TID) table 


« STIDTAB - invokes $TIDTAB macro to build TID Table entry 
for trace identifier 001 


A |D= - identifier of the trace element 


2, number between 1 and 255 
4 JES2 starts at 1 and increments 


4 Installation starts at 255 and decrements 
A FORMAT = - specifies name of a formatting routine 


4 routine name local, A-type address constant defined 


4 routine name not local, V-type address constant defined 


The JES2 tables are started by specifying “TABLE = HASP’. This indicates to JES2 that this table 
is a JES2 table. You would specify “TABLE = USER’ to indicate that the table is an installation- 
coded table. Specifying TABLE = HASP or TABLE= USER is the means JES2 provides to indi- 
cate the start of the table (TABLE =START) as discussed in “Concepts” on page 6. 


When $TIDTAB is specified with operands other than TABLE =, the macro generates a table el- 
ement. In the example above, the table element that will be generated will be for trace identifier 
l. 


The ID operand specifies the trace identifier number that we will use to code the $TRACE macro. 
The number must be between 1 and 255. JES2-defined trace identifiers start at 1 and increase. 
Installation-defined trace identifiers should start at 255 and decrease. 


The FORMAT operand specifies the name of a formatting routine to be given control when the 
trace table entries are being processed for printing. If the name that is specified for this operand is 
found to reside within the same module as the TIDTAB, then an A-type address constant is defined 
for the name. If the name that is specified for this operand is not found to reside within the same 
module as the TIDTAB, then a V-type address constant is defined for the name. 
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TID Tables ... SY 


e TID Tables (Examples - JES2)... 


= $TIDTAB - table entry... 


A NAME= - specifies trace entry name 


4 placed in trace output 


» $TIDTAB TABLE=END - indicates end of table 


The NAME operand specifies a 1-8 character name that is associated with the specified trace id. 
The name will appear in the trace output to further identify the trace data. 


When the TABLE= END 1s encountered, the table is closed. This indicates the end of the JES2 
TID tables. All JES2-defined trace identifiers are defined within this single table. 
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An Installation TID Table 


TID Tables ... 


e TID Tables (Examples - Installation) 


» Objective: 


A Create trace identifier to follow SAF calls 
A Create trace identifier without modifying JES2 


A Use TID table installation-extensible function 


« This is one scheme to complete this objective, others exist 


In order to show how you would specify a TID table, we now step through creating an 
installation-defined trace identifier for tracing security calls from the security PCE. 


Objective 


The objective is to create a trace identifier for tracing security calls. 


without modifying JES2 and to use the TID tables as the means to define the identifier to JES2. 


You wish to achieve this 
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Required Pieces 


TID Tables ... 


e TID Tables (Examples - Installation)... 


«» Pieces consist of: 


FORMAT ROUTINE 


USER TIO TABLE 


To achieve the objective, you will need to code three pieces. These pieces are: 


ie 


78 


Exit 0 


As was discussed in “Concepts” on page 6, there are two ways to link the installation table 
with JES2: 


a. The first of these is to link-edit the installation TID table with the HASJES20 load 
module. This requires the name of the installation table as USERTIDT. 


b. If you do not wish to link-edit the installation TID table with HASJES20 or do not wish 
to name the installation TID table USERTIDT, then you must fill in the address of the 
installation TID table into the $MCT field MCTTIDTU. This is the second method. 
This method requires that you fill in the address before invoking the $TRACE facility to 
access this trace id. Depending on when the installation will use the trace id, you may fill 
in the address early in initialization or after JES2 is up and running. 


In this example, you will fill in the address of the TID table early in initialization, specifically 
in Exit 0. Therefore, you require an Exit 0 that will load the module, if not already loaded, 
and resolve the address of the table. 


Format Routine 


You will need to create a format routine that will get control to format the TTE into a pnnt- 
able form. In this way, you can put the data into the TTE in any form or format and interpret 
yourself, independent of what JES2 understands or processes. 


User TID Table — 
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You will have to code a TID table that includes an element for the particular trace id. We 
will describe this installation table element in a step-wise fashion in the following section. 
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Coding the Installation TID Table 


TID Tables ... 


e TID Tables (Examples - Installation)... 


» Table and Operands: 


A Give the trace table an identifier of 255 


A ID=255 


A Name of the formatter routine is TROUT255 


A FORMAT = TROUT255 


A Name of the trace is SAFCALL 


4 NAME =SAFCALL 


Since installation identifiers should start at 255 and decrease, the ID for this installation trace table 
element will be 255 (ID= 255). The format routine will be called TROUT255, for TRace OUTput 
for identifier 255. The name that should come out on the trace entry should be SAFCALL, since 
the function of this trace identifier is to trace the fact that a SAF call has been made. Therefore, 
we will code NAME=SAFCALL on the TIDTAB. 
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Resulting TID Table 


TID Tables ... 


e TID Tables (Examples - Installation)... 


USERTIDT $TIDTAB TABLE=USER 


STIDTAB ID=255, 
FORMAT=TROUT255, 
NAME=SAFCALL 


STIDTAB TABLE=END 


The figure above shows the resulting installation TID table used to add a security trace identifier 
to JES2. The table is begun with TABLE= USER to tell JES2 that this is an installation table. 
The id of the trace element will be 255. The name of the routine that will format the trace data into 
a printable form will be TROUT255. The name of the trace identifier is SAFCALL. Finally, the 
table is delineated by the TABLE = END operand. 
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Coding the Other Required Pieces 


TID Tables ... 


e TID Tables (Examples - Installation)... 


» Required Pieces 


A TROUT255 - routine used to format trace records for this identifier 
type 


4 DO NOT specify TRACE = YES on $SAVE or $RETURN used 
from routine 


4 Value of registers on entry to format routine 


R1- Trace Table Buffer Pointer 
(TTP) 

R2 - Trace Table entry (TTE) 

R4 - Trace !D table entry (TID) 

R5 - pointer to remaining output 
area in print record (field 
TLGBSAVE points to beginning 
of print record) 

R14 - return address 

R15 - entry address 


One of the required pieces that you would have to provide to complete the installation extension 
to the $TRACE facility is the format routine. This is where it becomes obvious that the trace ex- 
tension facility is primitive. 


The installation format routine cannot itself issue a TRACE= YES on its SSAVE or $RETURN. 
The registers upon entry to the format routine are as follows: 


e RI - this register points to the TTP for the trace table that contains the entry as defined by the 
installation TIDTAB. : 


e R2- this register points to the TTE that contains the data that the installation $TRACE macro 


saved. This is the data to be formatted by the TROUT255 format routine. 
e R4- this register points to the TIDTAB (Trace Id Table) element that you created. 


e RS5 - this register points to an open area in an output area. The format routine will take the 
data contained in the TTE, make the data printable, and place the resulting printable data into 
this output area, starting at the location pointed to by RS. The field TLGBSAVE in the 
$TLGWORK area (the variable extension area off of the event trace log PCE) points to the 
beginning of this output area. The maximum size of this output 1s defined by an equate in 
$HASPEQU named TRCLRECL. Therefore, the maximum area that can be saved in this 
output area is TRCLRECL-1 (minus one for the carriage control). When the output area is 
full, a call to a routine named TRCPUT can be made to ‘PUT’ this line and obtain a new 
output area. We will describe TRCPUT shortly. 


e R14 - this register contains the return address. 


e R15 - this register contains the format routine entry address. 
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TID Tables ... 


e TID Tables (Examples - Installation)... 


» Required Pieces... 


A TROUT255... 


A TRCPUT Service Routine 


- adds record to current buffer 
- addr of TRCPUT in HCT field 
$TRCPUT 
- on exit R5 points to next area 
in buffer 
- registers: 
RO - Length of text (TLGBSAVE 
points to start of text) 
RS - Addr of New RCB on exit, 
must return to caller 
R14 - Return Addr 
R15 - Zero on Exit 


The TRCPUT service routine is an external routine available to installation format routines to 
“PUT” a formatted output area and obtain a new output area. The address of the TRCPUT 
routine is available from the $HCT field $TRCPUT. 


On entry to the TRCPUT service routine, you must pass the length of the text in RO. You can 
calculated this by taking the ending address in the output area of the installation data and sub- 
tracting the value in TLGBSAVE. R15 must contain the address of the TRCPUT service routine 
and R14 must contain the return address (1.e., use standard BALR R14,R15 linkage). 


On exit, the TRCPUT service routine will return in R5 the address of the new output area. This 
must be returned by the format routine to the caller of the installation format routine. Therefore, 
a $STORE of R5 should be done by the format routine upon return from the TRCPUT service 
routine. 
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TID Tables ... 


e TID Tables (Examples - Installation)... 


« Required Pieces... 


A Installation TID table 


A Defined as above 


A Exit 0 


& Obtain $UCT and place address in $HCT 
4 Initialize the $UCT 


A Place Installation TID table addr in field MCTTIDTU in $MCT 
in HASPTABS 


The last two pieces that are required are the installation TID table, as coded above, and the code 
for Exit 0. The Exit 0 code is required to do three things. 


1. It must obtain the $UCT and place the $UCTs address in the $HCT. 
2. It must initialize the $UCT. 


3. Finally, it must place the installation TID table address in the MCTTIDTU field in the $MCT 
in module HASPTABS. 


The code that is contained in “Appendix A. Table Pairs Coding Example” on page 147 is the code 
as you would be required to code it. This code includes: 


e Exit 0 that obtains the $UCT, places the $UCT address in the $HCT, initializes the $UCT, 
and places the installation TID table address in the $MCT. 


¢ The HASPXJ00 module contains, among other items that we will describe shortly, the TID 
table and the TID format routine TROUT255. 
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WS Tables 


What Is a WS Table? 


Work Selection Tables 


e Work Selection (WS) Tables 


» Ability to select output based on device and JOE 
characteristics 


s Applied to local and remote print or punch devices 


» Applied to offload job and sysout transmitters and receivers 


»e Device work selection setup defined by WS operand on 
“devices” 


WS = (nn,.../ nn, ... ) 


» Work selection tables extensible 


Work Selection is the ability to select output based on a matching of device characteristics with 
output characteristics (JOE characteristics). Work Selection is available in JES2 for local and re- 
mote print and punch devices. Also, offload job and sysout transmitters and receivers make use 
of work selection to determine what output or job to process. Device characteristics are set via the 
WS (Work Selection) operand on the device. The WS operand contains a list of attributes that 
define the characteristics of the device. The list is made up of criteria. The position of each crite- 
rion relative to the slash in the list determines how important it is to match on that particular cn- 
terion. Criteria to the left of the slash require an exact match between the device and the output 
before that output is considered suitable. Criteria to the right of the slash indicate a preference for 
a match, but the output need not match exactly. 


Additional information on the use of work selection is available in SPL: JES2 Initialization and 
Tuning, form (SC23-0065). 
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Work Selection Tables ... 


® Work Selection (WS) Tables... 


» Used to: 


4 Add Installation work selection criteria to JES2 system 


A Override HASP-defined work selection criteria in JES2 system 


« HASP-defined WS tables reside in HASPTABS 


» See MVS/Extended Architecture SPL: JES2 User 
Modifications and Macros (LC23-0069) 


The Work Selection (WS) tables are used to add installation work selection criteria to a JES2 sys- 
tem or override JES2-defined work selection criteria in JES2. Notice that deleting JES2 work se- 
lection criteria was not discussed. This is because we do not recommend deleting any JES2 work 
selection criteria. 


The JES2-defined WS tables reside in the JES2 module HASPTABS. Some of the following in- 
formation can be found in SPL: JES2 User Modifications and Macros. 
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( : WS Control Blocks and Macros 


Work Selection Tables ... 


e WS Tables (Related Control Blocks and Macros) 


« $MCT table fields: 


MCTPRWTU DC V(USERPRWT) USER PRT 
MCTPRWTH DC V(HASPPRWT) HASP PRT 


MCTPUWTU DC V(USERPUWT) USER PUN 
MCTPUWTH DC V(HASPPUWT) HASP PUN 


MCTJTWTU DC V(USERJTWT) USER OFFJT 
MCTJTWTH DC V(HASPJTWT) HASP OFFJT 


MCTJRWTU DC V(USERJRWT) USER OFFJR- 
MCTJRWTH DC V(HASPJRWT) HASP OFFJR 


MCTSTWTU DC V(USERSTWT) USER OFFST 
MCTSTWTH DC V(HASPSTWT) HASP OFFST 


MCTSRWTU DC V(USERSRWT) USER OFFSR 
MCTSRWTH DC V(HASPSRWT) HASP OFFSR 


The table pairs that are used to point to the WS tables are located in the $MCT. There is one table 
pair for each device type which supports work selection. Therefore, there is a table pair for: 


e Printers 

e Punches 

¢ Offload Job Transmitters 

e Offload Job Receivers 

e Offload Sysout Transmitters 
e Offload Sysout Receivers 


The $MCT fields for installation work selection tables are MCTPRWTU for printers, 
MCTPUWTU for punches, MCTJTWTU for offload job transmitters, MCTJRWTU for offload 
job receivers, MCTSTWTU for offload sysout transmitters, and MCTSRWTU for offload sysout 
receivers. If you want to link-edit an installation table with JES2 you must name your tables 
USERPRWT for printers, USERPUWT for punches, USERJTWT for offload job transmitters, 
USERJRWT for offload job receivers, USERSTWT for offload sysout transmitters, and 
USERSRWT for offload sysout receivers. The installation table must then be link-edited with 
HASJES20. The JES2-defined WS tables are pointed to from the $MCT using the MCT above 
and table names. | 
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Work Selection Tables ... 


e WS Tables (Related Control Blocks and Macros)... 


e $WSTAB macro 


A Builds WS tables and entries 


A Maps WS table entries 


To aid in the creating WS tables, JES2 supplies a macro named $WSTAB. This macro builds both 
the JES2 and installation tables and table elements. This macro also contains the mapping macro 
for the WS tables and elements. We will. describe this macro and its operands more thoroughly 
below. 
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A JES2 WS Table 


Work Selection Tables ... 


e WS Tables (Examples - JES2) 


HASPPRWT SWSTAB TABLE=HASP 


SWSTAB NAME=... 


SWSTAB NAME=JOBNAME , 
MINLEN=3, 
FLO=JQE JNAME , 
CB=JQE, 
DEVFLD=DCTJOBNM, 
DEVCB=DCT, 
RTN=COMPARE 


SWSTAB NAME=... 


SWSTAB TABLE=END 


The figure above illustrates what the JES2 work selection table looks like for the printers work se- 
lection criterion JOBNAME. The table element shown represents all the information that JES2 
needs to define the JES2 criterion for JOBNAME. This is the table element that is passed to the 
$#GET service routine which returns eligible JOEs for processing based upon the work selection 
list defined for the printer. Notice that the name of the WS table is HASPPRWT, the same as that 
specified for the V-type address constant in the $MCT. 


Now we describe each operand on the $WSTAB macro and how you should specify them. 
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Work Selection Tables ... 


e WS Tables (Examples - JES2)... 


«e S$WSTAB TABLE=HASP - invoke $WSTAB macro to build 
JES2 WS table 


« $WSTAB - invokes $WSTAB macro to build WS table entry 
for printer device . 


A&A NAME = - criterion name or slash 
& 1-8 characters 
A MINLEN= - minimum length accepted for NAME = 


A optional, defaults to full length of NAME = criterion 


The JES2 tables are started by specifying “TABLE= HASP’. This indicates to JES2 that this table 
is a JES2 table. You specify "TABLE= USER’ to indicate that the table is an installation-coded 
table. Specifying TABLE = HASP or TABLE = USER is the means JES2 provides to indicate the 
start of the table (TABLE =START) as discussed in “Concepts” on page 6. 


When $WSTAB is specified with operands other than TABLE=, the macro generates a table ele- 
ment. In the example above, the table element that is generated is for the JOBNAME work se- 
lection criterion. | | 


The NAME operand specifies the 1-8 character name of the criterion. The specified name is used 
to display work selection criteria as well as to specify the criteria in the work selection list. The 
NAME can also specify the special character ’/’. The slash delineates the left section of the work 
selection list from the right section. Criteria to the left of the slash are required to match explicitly. 
Criteria to the right of the slash are not required to match. In the example above, the name of the 
work selection criterion is JOBNAME. | 


The MINLEN operand specifies the minimum length that is required for the NAME. In the ex- 
ample, the minimum length that can be specified for JOBNAME is 3, that is, JOB would be all that 
would be needed before it was recognized as JOBNAME. The default value for this field is the 
entire length of the value entered for the NAME operand. 
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Work Selection Tables ... 


e WS Tables (Examples - JES2)... 


« $WSTAB - table entry... 


A FLD= - name of field 


4 compared against device field for match 


The FLD operand specifies the name of the field used to determine if there is a match with the 
device field. In the example, the field JQEJNAME holds the job name. Thus, the job name is 
compared against that specified with the device to détermine if this job is illegible for processing 
by the device. 
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Work Selection Tables ... 


e WS Tables (Examples - JES2)... 


= $WSTAB - table entry... 
4 CB= - used to resolve FLD=, valid are: 


A JQE - JQE 

& WJOE - work-JOE 

& CJOE - char-JOE 

& HCT - HCT 

4 NJHG - general section of Job hdr 
A NJH2 - JES2 section of Job hdr 


A NJHU - user section of Job hdr 


The CB operand tells JES2 what control block the value specified for the FLD operand is in. JES2 
understands a finite number of values for the CB operand. This is because JES2 will use the CB 
operand to determine what control blocks should be scanned to obtain a match between the 
FLD/CB pair and that specified for the device. Therefore, in the example above, the CB=JQE 
was specified which implies that the JQE must be looked at (using the JQEJNAME field) to find 
a match. JES2 understands how to obtain the JQE address. JES2 would not understand all control 
blocks. | 


Those control blocks that JES2 understands how to get addresses for include: 
¢ JQE - the control block that represents jobs to JES2. 
e W/JOE - the work JOE which contains information on the output to be printed. 


e CJOE - the characteristics JOE which contains information on some of the characteristics of 
the output. 


e NJHG - general section of the Job Header. This would be useful if the work selection list were 
to select on header fields (as for OFFLOADing). | 


e NJH2 - JES2 section of the Job Header. 


e NJHU - user section of the Job Header. This would be useful for installations that might want 
to add work selection criteria of OFFLOAD (for example) where fields for selection resided in 
the user section of the header. 
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Work Selection Tables ... 


e WS Tables (Examples - JES2)... 


e SWSTAB - table entry... 


4 CB=... 


- spool offload section of Job hdr 
- general section of DS hdr 

- 3800 section of DS hdr 

- datastream sectn of DS hdr 

- user section of DS hdr 


- no control block needed 


Some of the other control blocks known by JES2 include: 


NJHO - spool offload section of the Job header. This is the section that JES2 uses for the 
spool offloading and reloading of jobs. 


NDHG - general section of the dataset header. Just like the general section of the job header, 
might be useful for installations to create work selection criteria for selecting items from the 
net, tape, etc. 


NDHA - the 3800 section of the dataset header is also known by JES2. 
NDHS - datastream section of the dataset header. 
NDHU - user section of the dataset header. 


ZERO - this implies that no control block is needed and the FLD and FLAG operands are 
ignored. 


Examples of Table Pairs 93 


Work Selection Tables ... % 3 


e WS Tables (Examples - JES2)... 


» SWSTAB - table entry... 
A DEVFLD= - name of device field 
A compare against FLD= field 
A DEVCB= - control block to use to resolve DEVFLD, valid are: 


4 DCT 
4 PIT 
£4, HCT 
& UCT 


£4, ZERO - no control block needed for criterion 


The DEVFLD operand specifies the name of the field used to find a match for the device. This 
device field is compared against the field specified for the FLD operand to determine if this device 
should select that item for processing. In the example, the DCTJOBNM field is compared to the 
JQEJNAME field in the JQE. If the fields are compatible, then the device can select that job re- 
presented by the JQE. 


The DEVCB operand tells JES2 what control block the value specified for the DEVFLD operand 
isin. JES2 understands a finite number of values for the DEVCB operand. Like the CB operand, 
JES2 will use the DEVCB operand to determine what control blocks should be scanned to obtain 
a match between the FLD/CB pair and the DEVFLD/DEVCB pair. Therefore, in the example 
above, the DEVCB= DCT was specified which implies that the DCT (Device Control Table, re- 
presents the device) must be looked at (using the DCTJOBNM field) to find a match. JES2 
understands how to obtain the DCT address. JES2 would not understand all control blocks. 


Those control blocks that JES2 understands how to get addresses for include: 
e DCT - the control block that represents devices 

e = PIT - the control block that represents MVS initiators 

e HCT - the HASP Communication Table 

e UCT - the User Communication Table 


e §©Zero - this implies that no control block is needed. Both the DEVFLD and DEVFLAG op- 
erands are ignored. 


94 A GUIDE User Group Presentation 


& = oan 


Work Selection Tables ... 


e WS Tables (Examples - JES2)... 


« $WSTAB - table entry... 


A RTN - specifies routine to check if work to be selected meets 
criterion value. Valid are: 


A FLAG - call general flag routine 
A COMPARE - call general compare routine 
4 RANGE - call general range routine 


A other - routine address called to check criterion 


The RTN operand specifies a routine that is called to check if the work that has been selected sat- 
isfies the criterion value. There are three routines that JES2 provides to support work selection 
tables. These routines are: 


e FLAG - a general routine to determine if flag values match 
@¢ COMPARE - a general routine to compare if two fields match 
e RANGE - a general routine to determine if a value lies within a specified range. 


In addition to these general routines, a routine name can be specified to receive control to perform 
the selection verification. We will say more on this shortly. 


In the JES2 example, the COMPARE operand is specified to compare the JQE control block field 
JQEJNAME with the DCT control block field DCTJOBNM to determine if a match exists. 
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Work Selection Tables ... 


e WS Tables (Examples - JES2)... 


= $WSTAB - table entry... 


A RTN... 


A registers on entry to routine: 


R2 - addr of criterion being 
processed 

R7 - comparison length 

R8 - addr of device field or 
device Control Block 

R10 - addr of comparison field or 
Control Block 

R14 - return address 

R15 - Entry address 


You can specify an installation routine to receive control to perform the validation. When the 
routine is given control: 


e R2will contain the address of the criterion being processed. 
e¢ §€R7 will contain the length of the field being compared. 


¢ 8 contains the address of the device field (as specified via the DEVFLD operand) or device 
control block (as specified via the DEVCB operand). 


e R10 contains the address of the comparison field (as specified via the FLD operand) or the 
control block (as specified via the CB operand). 


e R14 contains the return address. 
e R15 contains the routine entry address. 


It is very important to keep in mind that the routine is called for every check of this criterion when 
it is in the work selection list. Therefore, this routine is in a potentially critical performance path 
(which is the reason for the non-standard register interface). Registers R2, R3, R4, R11, R12 and 
R13 must not be altered by the routine. 
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Work Selection Tables ... 


e WS Tables (Examples - JES2)... 


= $WSTAB - table entry... 


A RTN... 


& return codes from routine: 


0 - reject work 

4 - criterion is met, continue 
criteria processing 

8 - work is selectable, return 
to caller 

12 - criterion is not met, check 
if criteria after slash 


« S$WSTAB TABLE=END - indicates end of table 


There are four valid return codes that can be set by the installation routine. These are: 
¢ 0 - implies that this unit of work should be rejected, that no more scanning should be done. 


e 4- implies that the test was positive and that this unit of work may be acceptable depending 
on the tests of any other work selection criteria. 


e §8- implies that this unit of work should be selected without any further scanning of the work 
selection criteria. 


e 12 - implies that the test for this criterion failed. However, this may be acceptable depending 
on the location of the criterion (before or after the slash); processing should continue to de- 
termine if this failure is acceptable. 


When the TABLE= END is encountered, the table is closed. This indicates the end of the JES2 
Printer Work Selection tables. All of the JES2-defined printer work selection criteria are defined 
within this single table. 
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An Installation WS Table 


Work Selection Tables see 


e WS Tables (Examples - Installation) 


» Objective: 


A Create additional criteria 


A Use Work Selection table installation-extensible function 


» Function: 


A Add criteria on an OFFLOAD SYSOUT transmitter to offload 
SYSOUT that exceeded an instalilation-specified number of track 
groups 


e This is one scheme to complete this objective, others exist 


In order to show how you would specify installation Work Selection tables, the remaining de- 
scription of the WS tables will step through the creation of an installation-defined work selection 
criteria to select output that is beyond a specified limit for offload processing. 


Objective 


During periods of peak spool use (e.g., end of month or end of year processing), you may be in- 
terested in using the MVS/SP JES2 2.1.5 Spool Offload facility to offload jobs that are using a large 
amount of JES2 spool. In order to achieve this in a way that involves the least amount of code, 
you would like there to be an additional work selection criterion on the Offload SYSOUT Trans- 
mitter. This operand would indicate at what spool usage threshold a job would be when it would 
be offloaded from the system. 


To achieve this, you will add an installation table element to the work selection list for the Offload 
SYSOUT Transmitter. The following documents the pieces required, the coding of the table ele- 
ment, and the required code to “plug” the table in. This is one scheme to achieve the stated ob- 
jective; others do exist. | 
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Required Pieces 


Work Selection Tables ... 


e WS Tables (Examples - Installation)... 


» Pieces consist or: 


WS ROUTINE 


To achieve the objective, you will need to code three pieces. These pieces are: 


1. 


Exit 0 


As was discussed in “Concepts” on page 6, there are two ways to link the installation table 
with JES2: 


a. The first of these is to link-edit the installation Work Selection table with the HASJES20 
load module. This requires the name of the installation table be USERSTWT. 


b. If you do not wish to link-edit your installation Work Selection table USERSTWT, then 
you must fill in the address of your installation Work Selection table into the $MCT field 
MCTSTWTU. This is the second method. This method requires that you fill in the 
address of your table in the $MCT before invoking the Offload SYSOUT Transmitter to 
access this Work Selection criterion. Depending on when you use the transmitter, you 
may fill in the address early in initialization or after JES2 is up and running. 


In this example, you will fill in the address of the Work Selection table early in initialization, 
specifically in Exit 0. Therefore, you require an Exit 0 that will load your module (if not al- 
ready loaded) and resolve the address of the table. 


Work Selection Routine 


The method of deciding whether a job exceeds the specified spool usage threshold requires 
finding the amount of spool space used by the job. This value is held in two separate locations, 
depending on whether or not the job 1s in conversion or execution, or 1s elsewhere. Since this 
requires code more complex than that which the “canned” compare, range, or flag routines can 
handle, you must code a work selection routine to gain control. 
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3. User WS Table 


You will have to code an installation Work Selection table that includes the table element for 
your particular work selection criterion. We will describe this installation table element in a 
step-wise fashion below. 


100 A GUIDE User Group Presentation 


{ Coding the Installation WS Table 


Work Selection Tables ... 


e WS Tables (Examples - Installation)... 


» Table and Operands: 
A Name of criterion is TRKGRP for track group 
4 NAME = TRKGRP 
A Minimum length for keyword is TR 


A MINLEN=2 


A Allow operator to also specify TG for track group 


A ALIAS =TG 


’ 


Coding the installation Work Selection table involves deciding what values you want to expose to 
your operators. For example, the work selection operand that is seen and entered by the operators 
is TRKGRP, which indicates that work is selected based on the number of track groups (spool 
space) that has been allocated to a job. 


Since TRKGRP involves typing six characters, you may wish to make it easier for the operator 
by indicating that only 2 of the 6 characters need be typed. Therefore, you will specify a minimum 
length of 2 (MINLEN = 2). 


Also, when JES2 publications talk about track groups, they often refer to them in the abbreviated. 
form of TG. In order to prevent confusion, you could specify an alias of TRKGRP that may make 
more sense to your operators. Thus, the alias for TRKGRP is TG. 
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Work Selection Tables .. 


e WS Tables (Examples - Installation)... 


«» Table and Operands... 


A Field to check is JQETGNUM in the $JQE 


4 FLD=JQETGNUM 


A Control block is the $JQE 


A& CB=JQE 


A OFFLOAD device field to check is DCTUSERO 


4 DEVFLD = DCTUSERO 


The field that contains the number of track groups allocated to the job is JQETGNUM. This field 
determines whether there is a match with the device field. Therefore, the FLD operand is set to 
JQETGNUM. Thus, the job’s number of track groups obtained from field JQETGNUM deter- 
mines whether the Offload SYSOUT Transmitter “device” should select this job for transmitting. 


The field FLD = JQETGNUM is located in the control block JQE. The JQE (Job Queue Ele- 
ment) is a control block that represents the job while it is in the system. 


So, the job’s field JQETGNUM is compared against a threshold value set for the Offload SYSOUT 
Transmitter “device”. The threshold value for the transmitter device is held in the field 
DCTUSERO. The DCTUSERDO field 1s set by the operator as the threshold value. We will discuss 
the setting of the field in the Installation Examples section of the $SCAN tables. Thus, the devices 
field is DEVFLD = DCTUSERO. 
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Work Selection Tables ... 


e WS Tables (Examples - Installation)... 


» Table and Operands... 


4 Field OCTUSERO is in the OCT 


4 DEVCB=DCT 


A Routine that will verify that the JQETGNUM field matches the 
criterion in the DCT is WSTRKGRP 


4 RTN=WSTRKGRP 


The device field DCTUSER0O 1s located in the control block DCT (Device Control Table). DCTs 
define devices to JES2. Thus, every device in JES2 has a DCT; this includes Offload SYSOUT 
Transmitters. Therefore, the device control block is DEVCB = DCT. 


As discussed earlier, a work selection routine will have to gain control to verify that the amount 
of spool space allocated to a job (JQETGNUM) is greater than the threshold specified by the user 
for the device (DCTUSERO). This is because while the job is in conversion or execution, 
JQETGNUM holds an offset into the checkpoint area which contains the number of track groups 
allocated to the job. Thus, the routine is named (WSTRKGRP). This routine must be link-edited 
with this table entry so that the routine’s address can be resolved. See the sample code in “Ap- 
pendix A. Table Pairs Coding Example” on page 147. 
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Resulting WS Table 


Work Selection Tables ... 


e WS Tables (Examples - Installation)... 


USERSTWT SWSTAB TABLE=USER 


SWSTAB NAME=TRKGRP, 
MINLEN=2, 
ALIAS=TG, 


FLO=JQETGNUM, 


CB=JQE, 
DEVFLD=DCTUSERO, 
DEVCB=0CT, 
RTN=WSTRKGRP 


SWSTAB TABLE=END 


The figure above shows the resulting installation Work Selection Table to add a work selection 
operand to the Offload SYSOUT Transmitter. The table is begun with a TABLE= USER to tell 
JES2 that this is an installation table. The name of the work selection criterion is TRKGRP. Only 
TR need be typed by the operator to indicate TRKGRP, or the operator can use the alias name 
of TG. The field to compare with in the job is JQETGNUM in the job’s control block JQE. The 
field to compare against in the device is DCTUSERO in the device control block DCT. A routine 
to do the actual comparison is called WSTRKGRP. _ Finally, the table is ended with a 
TABLE= END to indicate to JES2 that this installation table is completed. 
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{ | Coding the Other Required Pieces 


Work Selection Tables ... 


e WS Tables (Examples - Installation)... 


» Required Pieces 


A WSTRKGRP - routine to verify that JQETGNUM is equal to or 
greater than DCTUSERO 


A Installation WS table 
& Defined as above 
A Exit 0 


2. Obtain $UCT and place address in $HCT 
A Initialize the $UCT 


é& Place Installation WS table addr in field MCTSTWTH in $MCT 
in HASPTABS : 


01/88 95 


The pieces required to permit an installation to add a work selection operand are the installation 
work selection routine (WSTRKGRP), the installation work selection table (as coded above), and 
the code for Exit 0. The Exit 0 code is required to do three things. 


1. It must obtain the $UCT and place the $UCT’s address in the $HCT. 
2. It must initialize the $UCT. 


3. Finally, it must place the installation Work Selection table address in the MCTSTWTU field 
in the $MCT in module HASPTABS. 


The code that is contained in “Appendix A. Table Pairs Coding Example” on page 147 1s the code 
as an installation would be required to code it. This code includes: 


e Exit 0 that obtains the $UCT, places the $UCT address in the $HCT, initializes the $UCT, 
and places the installation Work Selection table address in the $MCT. 


e The HASPXJ00 module contains, among other items that we will describe shortly, the Work 
Selection table and the Work Selection criterion routine WSTRKGRP. 
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SSCAN Tables 


What Is a $SSCAN Table? 


$SCAN Tables 


© $SCAN tables 


e Used to: 


A Add Installation initialization and command statements and 
operands to JES2 system 


A Override HASP-defined $SCAN tables in JES2 system 


4 Delete HASP-defined $SCAN tables in JES2 system 


» HASP-defined $SCAN tables reside in HASPSTAB 


» See MVS/Extended Architecture SPL: JES2 User 
Modifications and Macros (LC23-0069) 


$SCAN is a facility for scanning, from left to right serially, parameter statement input (initialization 
statements and commands). The $SCAN facility allows the input to match a general grammar, to 
follow a definition that is table-defined, and to process certain input via exit routines called during 
the scan. 


The $SCAN facility improves upon past initialization statement and command processors in that 
it insures that all the input to process is valid. If at any point an invalid value is encountered, the 
scanning is termimated and any changed values are restored to the previous values. The $SCAN 
facility is not a general syntax checker in that it terminates processing at the first syntax failure. It 
will not continue processing the statement, flushing out additional errors. 


Through the $SCAN facility, you can add, override, or delete installation initialization statements 
and operands (to a lesser degree this includes JES2 commands). It is recommended that if you want 
to add commands that you call the $SCAN facility from the command exit (exit 5). 


The JES2-defined $SCAN tables reside in HASPSTAB. Some of the following information can 
be found in the SPL: JES2 User Modifications and Macros (LC23-0069). 
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SSCAN Control Blocks and Macros 


$SCAN Tables ... 


e $SCAN tables (Related Control Blocks and Macros) 


» $MCT table fields: 


MCTOPTTP DS OF OPTION TBLES 
MCTOPTTU DC V(USEROPTT) USER OPT TBL 
MCTOPTTH DC V(HASPOPTT) HASP OPT TBL 


MCTMPSTP DS OF MAIN PARM STMT 
MCTMPSTU DC V(USERMPST) USER MPS TBL 
MCTMPSTH DC V(HASPMPST) HASP MPS TBL 


The table pairs that are used to point to the initialization option tables and the initialization state- 
ment tables are located in the $MCT.’ There is one table for the initialization options and one for 
the initialization statements. The $MCT field for installation tables for initialization options is 
MCTOPTTU, for the installation tables for the initialization statements the field is MCTMPSTU. 
If you want to link-edit a table with JES2 you must name the table USEROPTT for initialization 
options and USERMPST for initialization statements. The installation table would then need to 
be link-edited with HASJES20. The JES2-defined options and statements are pointed to from the 
$MCT using the MCT and table names as shown on the foil. | 


8 Initialization option examples: COLD, NOREQ, WARM. Initialization statement examples: PRT, 
MASDEF. 
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$SCAN Tables ... 


e $SCAN tables (Related Control Blocks and Macros)... 


» $SCANWA control block 


A $SCAN Facility work area control block 


A Contains fields required by $SCAN Facility process 


A Interface control block between $SCAN Facility and all routines 
it calls 


The $SCANWA ($SCAN work area) control block is a work area for the $SCAN request. The 
$SCAN facility can recursively call itself to process the input passed to it. At each invocation of 
$SCAN, a new $SCANWA ($SCWA) is obtained to hold information to aid the facility in the 
processing of the input. The $SCWA is the interface control block between the $SCAN facility 
and all the routines that it calls, including the pre- and post-scan exit routines and the display exit 
routine. 


These exit routines will be given control pointing to the current $SCWA for this level of $SCAN. 
There are three forms of $SCWAs: 


1. Work $SCWAs 
2. Back-up $SCWAs 
3. Display $SCWAs 


The work $SCWAs are the control blocks that the exit routines will care the most about. We will 
discuss more on this control block and its relationship with the exit routines later in “A JES2 
$SCAN Table” on page 112. 
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$SCAN Tables ... 


e $SCAN tables (Related Control Blocks and Macros)... 


» $SCAN macro 


A Generates calling sequence to the JES2 $SCAN facility 


A Operands: 


A SCAN= - type of scan requested 


SET - take input and set specified 
area 

DISPLAY - based on input, display 
specified area 

SETDISP - take input, set specified 
area and then display 
specified area 

JSINGLE - limit scan to single 
parameter keyword 


The $SCAN facility is invoked by using the $SCAN macro. This macro generates the calling se- 
quence to the facility and insures that the required data is passed on the call. There are several 
operands on this macro (all of which are documented in SPL: JES2 User Modifications and 
Macros). | 


The first operand that we will discuss is the SCAN= operand. This operand indicates the type of 
request the caller wishes the $SCAN facility to fulfill. There are many types of calls. Three of them 
are: 


e SET indicates that the input should be processed and the validated input should be set into 
fields specified by the SSCANTAB macro for the input being parsed. | 


e DISPLAY indicates that the input should be processed and the specified fields should be dis- 
played using attributes specified in the SSCANTAB macro for the input being parsed. 


e SETDISP indicates that a set request should be done and then, within the same $SCAN call, 
a display of the result should be done. 


The optional second positional value that you can specify with SET, DISPLAY, or SETDISP is 
SINGLE. This indicates that only one initialization statement or command (with possibly many 
operands) may be processed on this invocation of the $SCAN facility. 
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$S$SCAN Tables ... 


e $SCAN tables (Related Control Blocks and Macros)... 


» $SCAN macro... 


A TABLES = - addr of table pair 

A PARM= - addr of area to scan 

4 PARMLEN= - len of area to scan 

A&A DISPOUT= - addr of output area 

4 DISPLEN= - len of output area 

A DISPRTN= - addr of output display routine 


A CALLER= - caller identifier limits tables that will be searched 


In addition to the SCAN= operand, there is the TABLES= operand. This operand points to the » 
table pair in the $MCT where the $SCAN facility is to start looking for table elements that match 
the input that is encountered. This need not specify a table pair in the $MCT. However, the only 
other location where a table pair can reside is in the $UCT. 


The PARM= operand points to the input that the $SCAN facility is to process. This parameter 
input area is required to contain the entire input plus one blanked out byte. The PARMLEN = 
operand specifies the length of the input plus one for the blanked out byte. Thus, if an 80-byte 
buffer area holds the input, and the input is only 40 bytes in length (not including the last blanked 
out byte), then the PARM= will point to the beginning of the buffer area and the PARMLEN = 
is set to 41 (includes the last blanked out byte). 


The DISPOUT= operand points to the area where $SCAN facility generated display text is to be 
placed. DISPLEN specifies the length of the display area and DISPRTN= specifies the display 
routine that will get control to display the display area. The $SCAN facility does not issue any sort 
of display of the specified area; this is up to the routine specified in the DISPRTN field. Also note 
that DISPOUT=, DISPLEN=, and DISPRTN= are not required. However, if the $SCAN fa- 
cility encounters an error, the diagnostic message it normally builds (using DISPOUT, DISPLEN, 
and DISPRTN) will not be built. Therefore, if you want to see diagnostic messages, these three 
display-oriented operands should be specified even for SCAN = SET calls. 


The CALLER = operand is a means to specify or clarify environmental type of information on the 
$SCAN call. It is possible for you to code two tables for the same keyword that $SCAN should 
use at different times, one for initialization and one for command time, for example. Thus, a 
CALLER = operand is provided on the table (as we will show shortly). When the $SCAN facility 
is invoked with CALLER= specified on the $SCAN macro, this “caller id” is used to match the 
table element. Therefore, different control blocks can be specified for the same keyword so that the 
correct location is processed for the sets and displays. We will describe this operand further in “A 
JES2 $SCAN Table” on page 112. 
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$SCAN Tables ... 


e $SCAN tables (Related Control Blocks and Macros)... 


» $SCANTAB macro 


A Builds $SCAN tables and entries 


A Maps $SCAN table entries 


Just as there were table creating macros for the PCE Tables, DTE Tables, TID Tables, and WS 
tables, there is a SSCANTAB macro to aid in creating $SCAN tables. This macro builds both the 
JES2 and installation tables and table elements. This macro also contains the mapping macro for 
the $SCAN tables and elements. We will describe this macro and its operand more thoroughly 
shortly. 
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A JES2 $SCAN Table 


$SCAN Tables ... 


¢ $SCAN Tables (Examples - JES2) 


HASPMPST SSCANTAB TABLE=HASP 
SSCANTAB NAME=... 


SSCANTAB NAME=RECVOPTS, 
MSGID=846, 
CONV=SUBSCAN, 
SUBSCAN=MCTRCVTP, 
CB=C TEMP, RVSILNG), 
PRESCAN=C PREDRECV , DISPLAY), 
PSTSCAN=C PSTRECV, SET), 
CALLER=C SSCIRPL ,SSCIRPLC, 
SSCDCMDS , SSCSCMDS > 


SSCANTAB NAME=... 


SSCANTAB TABLE=END 


The figure above illustrates what the $SCAN tables for JES2 main parameter statements (initial- 
ization statements) look like. The table element shown represents the table element for the 
RECVOPTS initialization statement. This is the table that is passed to the $SCAN facility during 
JES2 initialization to process the initialization statements. Notice that the name of the $SCAN 
table is HASPMPST, the same as that specified for the V-type address constant in the $MCT. 


The following describes each of the operands on this table element as well as some other table el- 
ements. However, there are several additional operands that will not be covered. You should re- 
view the $SCANTAB macro and SPL: JES2 User Modifications and Macros fur a description 
of all the operands that you may specify on the $SCANTAB table element. 
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SSCAN Tables ... 


e $SCAN Tables (Examples - JES2)... 


» $SCANTAB TABLE=HASP - invoke $SCANTAB macro to 
build JES2 $SCAN table 


e SSCANTAB - invokes $SCANTAB macro to build $SCAN 
table entry 


A NAME= - name of scan keyword being defined 


4 1-8 characters 


A MSGID= - specifies 3-digit identifier for $SHASPnnn message 
when $SCAN processing DISPLAY request 


The JES2 $SCAN tables, like the preceding tables, are started by specifying “TABLE= HASP’. 
This indicates to JES2 that this table is a JES2 table. You would specify “TABLE= USER’ to 
indicate that the table is an installation-coded table. Specifying whether it is a JES2 or installation 
table determines default values for the CALLER and SUBSCAN $SCANTAB operands. We will 
discuss these operands later. Specifying TABLE = HASP or TABLE= USER is the means JES2 
provides to indicate the start of the table (TABLE=START) as discussed in “Concepts” on page 
6. 


When the $SCANTAB is specified with operands other than TABLE=, the macro generates a 
table element. In the example above, the table element that 1s generated is for the RECVOPTS 
initialization statement. 


The NAME= operand specifies the 1-8 character name of the initialization parameter or operand. 
In its processing, the $SCAN facility scans the input passed to it from left to right, isolating the 
keywords that it encounters. The isolated keyword is then used as a matching criterion when 
searching through $SCAN table elements. It is the value specified for this NAME operand that 
$SCAN uses when attempting to match the isolated keyword. 


The MSGID operand specified a three-digit message identifier that is appended to the end of 
$HASP to use for display requests involved with this keyword. This operand is only honored at 
the highest level of the keyword, the initialization statement name. In the example, for the initial- 
ization statement RECVOPTS, the message identifier that 1s used to respond to display requests is 


846. Thus, the message identifier would be: $HASP846. 


Examples of Table Pairs 113 


$SCAN Tables ... 


@ $SCAN Tables (Examples - JES2)... 


=» $SSCANTAB - table entry... 
4 CONV= - specifies type of conversion to do for keyword input 
A CHARoM where 


A - alphabetic (A-Z) 

N - numeric (0-9) 

S - special ($, @, #) 

F - first character alphabetic 


J - first character alphabetic or special 


| n4/2e 04 ! 


The conversion operand specifies the type of conversion to do with the keyword input. There are 
several valid values that this operand can take. The first is CHARxxxx. CHARxxxx specifies what 
the valid characters are that may be specified in the input, where xxxx indicates five valid types: 


1. 


2 
3 
4. 
3 


A - indicates that the input must be alphabetic. 

N - indicates that the input must be numeric. 

S - indicates that the input must be a special character. 

F - indicates that the first character in the input must be alphabetic. 


J - indicates that the first character in the input must be alphabetic or special. 


Therefore, in the following examples: 


(Ald 


CHARJNAS - indicates that the first character in the input must be alphabetic or special and 
the rest of the input can be alphabetic, numeric, or special character (e.g., A$$$89A). 


CHAREFNA .- indicates that the first character in the input must be alphabetic and the rest of 
the input can be numeric or alphabetic. Special character input is not permitted. (e.g., 
A9I98AB99) 


CHARA - indicates that only alphabetic input is permitted. 
CHARN - indicates that only numeric input is permitted. 


etc. 
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$SCAN Tables ... 


@ $SCAN Tables (Examples - JES2)... 


» $SCANTAB - table entry... 
A CONV=... 


A FLAG - keyword represents a flag value, flag set as per VALUE 
operand (see Mods and Macros) 


4 ALIAS - keyword alias of other keyword as per SCANTAB= 
operand 


4, VECTOR - keyword represents a vector of values 


&, SUBSCAN - keyword requires another level of scan using 
tables as per SCANTAB= operand 


A NUM - keyword is numeric value 


& HEX - keyword is hexadecimal 


CONV= FLAG indicates that the input is a flag value. This value is then processed as the 
VALUE= operand indicates on the $SCANTAB. If CONV = FLAG is specified, the VALUE= 
operand is required. See SPL: JES2 User Modifications and Macros for additional information. 


CONV = ALIAS indicates that this keyword is an alias name of a real keyword. The $SCANTAB 
table element that describes the real keyword is pointed to by the SCANTAB= operand on this 
alias $SCANTAB table element. This is useful for creating alternate names for initialization state- 
ments or operands. JES2 used this alias capability with the PRINTER, PRINTR, PRT initial- 
ization statements in releases at the 2.2.0 level and previous. 


CONV=VECTOR indicates that the input represents a vector or list of input. The 
$SCANTAB(s) that describes this list of input is pointed to from the SCANTAB= operand. An 
example of vector input 1s: 


VOL=(SPOOL1, SPOOL2 , SPOOL3 ) 


CONV =SUBSCAN indicates that in order to process the rest of the input, the $SCAN facility 
must issue a subscan or a recursive $SCAN call. The SCANTAB= operand, in this instance, 
points to a $SCAN table pair (in the $MCT in JES2). 


CONV = NUM indicates that the input is numeric in nature. The difference between this value and 
CHARN 1s that with this value the number is converted to hexadecimal; with CHARN, the value 
is character in format. 


CONV = HEX indicates that the input 1s hexadecimal (e.g., 13EF3A). 


In the JES2 example, the CONV=SUBSCAN indicates that processing the rest of the 
RECVOPTS initialization statement after the RECVOPTS keyword is isolated will require a re- 
cursive $SCAN call. The SUBSCAN = operand points to the $SCAN table pair that $SCAN uses 
to process the operands of the RECVOPTS initialization statement. 
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$SCAN Tables ... 


@ $SCAN Tables (Examples - JES2)... 


= $SCANTAB - table entry... 
A SUBSCAN= - points to additional $SCAN tables 


A if CONV=ALIAS - points to real $SCAN table 


4 if CONV=VECTOR - points to $SCAN table(s} to defined Vector 
input 


A if CONV=SUBSCAN - points to $SCAN table pair 
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As has been stated earlier, the SUBSCAN = operand points to additional $SCAN table elements 
dependent upon the value of the CONV= operand. If CONV=ALIAS, the SUBSCAN operand 
points to a $SCAN table element that contains the “real” keyword. If CONV= VECTOR, then 
the SUBSCAN operand points to a table of Vector $SCAN tables. If CONV=SUBSCAN, the 
SUBSCAN operand points to a $SCAN table pair. For JES2 CONV=SUBSCAN, the SUB- 
SCAN operand points to a table pair in the $MCT. In the installation table, the SUBSCAN op- 
erand would default to point to a table pair in the $UCT. With the MVS/SP JES2 2.2.0 release, 
the SUBSCAN operand can point to a table pair located anywhere (A-type address constant or 
V-type address constant). 


In the JES2 example, the table pair that $SCAN uses to process the operands of the RECVOPTS 
initialization statement is contained in the $MCT at label MCTRCVTP. 
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$SCAN Tables .... 


¢ $SCAN Tables (Examples - JES2)... 


» $SCANTAB - table entry... 


A CB= - specifies primitive control block known by $SCAN facility 


£ HCT - JES2 HCT control block 

& PCE - current PCE at time of $SCAN invocation 

& DCT - scan DCTs to find match for NAME and DCTDEVN 
4, UCT - Installation UCT control block 

A PARENT - use control block from previous $SCAN level 


4 TEMP - $GETMAIN area for size specified 


The CB= operand specifies the primitive control block that the $SCAN facility is to use to process 
this $SCAN request. The $SCAN facility is set up to know a small number of basic control blocks. 
These control blocks are: 


1. HCT - the JES2 HCT control block. 
2. PCE - the current Processor Control Element at the time of the $$CAN invocation. 


3. DCT - a Device Control Table (DCT). This control block is found by calling the $DCTDYN 
services which scans the DCTs comparing the NAME and DCTDEVN fields for a match. 


4. UCT - the User Control Table (UCT) control block. 


The $SCAN facility can also be told to use the control block that was found at the previous level 
of $SCAN processing. Also, the facility will obtain a temporary area that can be used as a new 
control block. This temporary area is freed upon completing this $SCAN request, so you will have 
to code a POST $SCAN exit to $GETMAIN a permanent control block and copy the temporary 
into it. If CB= TEMP is specified, a second positional operand must be specified that states the 
size of the temporary control block to obtain. In the JES2 example, CB=(TEMP,RVSILNG), a 
temporary control block is obtained that is RVSILNG in length. 


Besides identifying these basic control blocks, the $SCAN facility can be told to do control block 
indirection. Control block indirection 1s the ability to step from basic control blocks through a 
series of other control blocks to find the control block to use to process a request. See the 
CBIND= operand on the $SCANTAB macro in SPL: JES2 User Modifications and Macros. 
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SSCAN Tables ... 


© $SCAN Tables (Examples - JES2)... 


« SSCANTAB - table entry... 


A PRESCAN= - name of routine to receive control prior to keyword 
processing 


4 Can be used to find unique control block 


4 Do setup or complete processing for keyword 


A PSTSCAN= - name of routine to receive contro! after keyword 
processing 


4&4 Do completion processing unique to keyword 
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The PRESCAN= operand names a routine which will receive control prior to keyword processing. 
The routine address is resolved with a V-type address constant if it 1s determined that the routine 
is not in the same module as the $SCAN table element that references it. This pre-scan exit routine 
is given control to do unique processing to find control blocks or do setup to let the $SSCAN facility 
complete its processing. It can also do all the processing for the keyword and pass an indicator that 
the $SCAN facility is finished with this keyword. 


The PSTSCAN= operand names a routine that will receive control upon completing keyword 
processing. This routine address is resolved with a V-type address constant if it is determined that 
the routine is not in the same module as the $SCAN table element that references it. This post-scan 
exit routine is given control to do cleanup processing related to resources that may have been ob- 
tained by a pre-scan exit routine. If CB = TEMP was specified, this routine can obtain a permanent 
control block to place the result of the $SCAN. 


We will discuss more about pre- and post-scan exits later. In the JES2 example, a pre-scan exit 
routine was specified with a second positional operand of DISPLAY. This means that the pre-scan 
exit routine PREDRECV will receive control only for DISPLAY requests to the $SCAN facility. 
The post-scan exit routine PSTRECV will only receive control for SET requests since the second 
positional operand indicates SET. 
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$SCAN Tables ... 


® $SCAN Tables (Examples - JES2)... 


» SSCANTAB - table entry... 


A CALLER - specify caller identifiers for those callers permitted to 
access table entry 


A $SCOPTS - JES2 init options (E.G., COLD, WARM, etc.) 
S $SCIRPL - JES2 init commands 

4 $SCIRPLC - console issued init commands 

& $SCDCMDS - display commands 

& $SCSCMDS - set commands 


& $SCDOCMD - short form of display for display commands 


As was described on the $SCAN macro, the CALLER= operand 1s a way to indicate an envi- 
ronmental influence over what $SCAN table element to choose to process a keyword. The 
CALLER = operand on the $SCAN table element indicates what caller identifiers may access this 
table element. 


In the JES2 example, the valid callers to access this table include: 
1. JES2 initialization statement processing, 

2. JES2 initialization display and set requests from the console, 
3. display commands, and 

4. set commands. 


In order to access this table the CALLER= operand on the $SCAN macro must be one of either 
$SCIRPL, $SCIRPLC, $SCDCMDS, or $SCSCMDS. 
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$SCAN Tables ... 


@ $SCAN Tables (Examples - JES2)... 


RECVOPTS TYPE=ALL,COUNT =2, INTERVAL = 24 


MCTMPSTP 


HASPMPST < DC VCUSERMPST > 
TABLE START | 
OC VCHASPMPST> 
TABLE DEBUG 
TRCVTP 


>] MC 
TABLE RECVOPTS eae a DC VCUSERRCVT)> 
TABLE END 


DC VCHASPRCVT > 
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With the processing that has occurred so far, the $SCAN facility has taken the initialization state- 
ment described above, isolated the RECVOPTS keyword, and found the $SCAN table element for 
this keyword. This table element has told the $SCAN facility: 


1. for display requests, use the message identifier 846 (MSGID =); 


2. to complete processing for the operands on the statement a subscan (recursive $SCAN) call 
must be done (CONV =); 


3. to use the table pair located at label MCTRCVTP in the $MCT (SUBSCAN =); 
4. to obtain a temporary control block that is RVSILNG in length (CB=); 


5. before processing the RECVOPTS pean for display requests, call the PREDRECV pre- 
scan exit routine (PRESCAN =); 


6. after processing the RECVOPTS cord for set requests, call the PSTRECV post-scan exit 
routine (PSTSCAN = ); 


7. if the caller of the $SCAN facility is not from initialization or command time, don’t use this 
table (CALLER =). 


Now in order to process the operands of the RECVOPTS initialization statement, $SCAN uses the 
tables at HASPRCVT. 
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RECVOPTS TYPE=ALL,COUNT = 2, INTERVAL = 24 


HASPRCVT SSCANTAB TABLE=HASP 


SSCANTAB NAME=TYPE ,CB=PARENT, 
FIELD=RVSNAME , DSECT=RVS, 
CONV=CHARA , RANGE=( 1,8) 


SSCANTAB NAME=COUNT,CB=PARENT, 
FIELD=RVSLIM,DSECT=RVS, 
CONV=NUM, RANGE=(1, 99 


SSCANTAB NAME=INTERVAL ,CB=PARENT, 
FIELD=RVSINTV ,DSECT=RVS, 
CONV=NUM,RANGE=( 11,9999 > 


SSCANTAB TABLE=ENO 


The $SCAN tables that are pointed to by the RECVOPTS table element are shown above. These 
tables describe the valid inputs for the RECVOPTS operands and to show where the input must 
be placed and how it should be converted. 


In order to fully explain what these table are doing, we will describe each operand below. 
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S$SCAN Tables ... 


® $SCAN Tables (Examples - JES2)... 


« $SCANTAB TABLE=HASP - invoke $SCANTAB macro to | 
build JES2 $SCAN table 


« $SCANTAB - invokes $SCANTAB macro to build $SCAN 
table entry 


A&A NAME= - name of scan keyword being defined 


A CB= - use the control block located or obtained from previous 
$SCAN level 


A FIELD= - name and length of field associated with keyword value 


4 Length assumed based on assembler-defined length of field 


& Length specified as second operand 


Once again, this is a JES2 table, as signified by TABLE=HASP. If you wish to add or override 
keywords described in this table, you would code a table USERRCVT with TABLE = USER and 
fill in the address to the table in the MCT. We will describe this process more later. 


The NAME= operand is the same at this second level of scan as it was for the first level of scan- 
ning (1.e., for the RECVOPTS keyword). It indicates the one- to eight-character name of the 
keyword that this table element defines. In this example, there are three keywords defined by this 
table; TYPE, COUNT, and INTERVAL are defined by the $SCAN table elements. 


The CB= operand indicates that the temporary area obtained at the previous level of scanning is 
to be used as the control block. This is indicated by specifying CB = PARENT. | 


The FIELD= operand indicates the name and length of the field that is set or displayed for the 
specified keyword. The length need not be specified if it defaults to its assembler-defined length. 
Otherwise, specify the length as a second positional operand on this FIELD= operand (e.g., 
FIELD =(RVSNAME,8) where 8 is the length). | 
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» $SSCANTAB - table entry... 


A DSECT= - DSECT name to use to resolve FIELD= value 


A lf FIELD is absolute offset, DSECT should be 0 


A CONV= - specifies type of conversion to do 


& CHARA - data must be alphabetic (A-Z) only 


A NUM - data must be numeric 


at 


In order to resolve the FIELD= offset, the DSECT that contains the field must be specified via 
the DSECT= operand. If the FIELD 1s an absolute offset, then DSECT = 0 should be coded. 


As was discussed earlier, the CONV= operand specifies the type of conversion for the input. The 
two types of conversion in the example are CHARA and NUM. CHARA indicates that the input 
can only be alphabetical in nature. NUM indicates that the input must be numeric. 


Examples of Table Pairs 123 


$SCAN Tables ... 


@ $SCAN Tables (Examples - JES2)... 


» $SCANTAB - table entry... 
A RANGE = - allowed range for the input 


4 CHARwox - specifies length range 


2, NUM, HEX, CHARN - specifies binary range 


« $SCANTAB TABLE=END - indicates end of table 
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RANGE= indicates the allowed range for the input. If the CONV= operand indicates 
CHARxxxx, then the RANGE= operand indicates the allowed length of the character input. If 
the CONV= operand indicates NUM, HEX, or CHARN, then the RANGE = operand indicates 
the allowed binary range of the input. 


In the JES2 example, the first table entry contains CONV = CHARA and RANGE =(1,8). This 
means that the character input cannot be greater than eight characters and not less than one char- 
acter in length. With CONV=NUM and RANGE= (1,99), this means that the numeric input 
cannot be less than one nor greater than 99. 


TABLE= END, of course, indicates the end of this table. 
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RECVOPTS TYPE =ALL,COUNT = 2, INTERVAL = 24 


MCTMPSTP 

HASPMPST OC VCUSERMPST) 
TABLE START 

DC VCHASPMPST> 


TABLE DEBUG 
eee as MCTRCVIP 
TABLE RECVOPTS DC VCUSERRCVT > 


TABLE END DC VCHASPRCTT> 
< 


HASPRCVT 

TABLE START 
TABLE TYPE 
TABLE COUNT 
TABLE INTERVAL 
TABLE END 


At this point in the $SCAN facility processing, the RECVOPTS initialization statement can be fully 
processed. After finding the table for RECVOPTS and recursively calling itself, the $SCAN facility 
completed the rest of the initialization statement by isolating the next keyword (TYPE), finding the 
$SCAN table element that matched this keyword, and processing the input to this operand. 


The table element indicated that the input must be alphabetic, which ALL 1s, and it must not be 
less than one character and not greater than eight characters in length. Since the input passes these 
checks, the input is put into the temporary control block using the RVSNAME field in the DSECT 
RVS. | 


After completing the TYPE operand, the $SCAN facility continued with the COUNT operand. 
This was done by isolating the keyword, finding the $SCAN table element that matched this 
keyword, and processing the input to this operand. 


The table element indicated that the input must be numeric, which COUNT 1s, and it must not 
be less than one or greater than 99. Since the input passes these checks, the input is put into the 
temporary control block using the RVSLIM field in the DSECT RVS. 


After completing the COUNT operand, the $SCAN facility continued with the INTERVAL op- 
erand. This was done by isolating the keyword, finding the $SCAN table element that matched this 
keyword, and processing the input to this operand. 


The table element indicated that the input must be numeric, which INTERVAL 1s, and it must 
not be less than one or greater than 9999. Since the input passes these checks, the input 1s put into 
the temporary control block using the RVSINT'V field in the DSECT RVS. 


At this point processing is done with all of the operands of the RECVOPTS initialization state- 
ment. Thus $SCAN exits this level of $SCAN processing and returns to the first (RECVOPTS) 
level of processing. Since the request was a SET request and since the RECVOPTS table element 
indicated that a post-scan exit routine must be given control, the post-scan exit PSTRECV routine 


Examples of Table Pairs 125 


is given control to do some specific final processing (like obtaining a permanent control block, for 
example). | 
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More about Pre-Scan and Post-Scan Exits 


SSCAN Tables ... 


e $SCAN Tables (Examples - JES2)... 


» More on PRESCAN and PSTSCAN exits 


A Registers: 


Unchanged 
Unchanged or 
Diagnostic Ptr 
Unchanged 
Unchanged 
Unchanged 
Unchanged 
Return Addr Unchanged 
Entry Addr Return Code 


Above are the register conventions that pre- and post-scan exit routines can expect on entry. Before 
JES2 release 2.2.0, register 0 was undefined upon entry; with 2.2.0, register 0 has the token specified 
via TOKEN = on the $SCAN invocation. Register 1 contains the address of the $SCAN work area 
($SCWA). From this work area, the exit routine is capability of obtaining the values of key fields. 
We will document these fields shortly. 


Registers 11, 13, 14, and 15 follow the normal JES2 $EXIT type of register conventions: 


Register 11 contains the address of the $HCT. 


Register 13 contains the address of the PCE (Processor Control Element) for the processor in 
control at the time of the $SCAN request. 


Register 14 contains the return address. 


Register 15 contains the entry point address of the exit routine. 


The registers that may be set from these pre- and post-scan exit routines also follow normal con- 
ventions. Register 1 can contain the address of a diagnostic phrase. This register is interrogated for 
this diagnostic phrase if the return code in register 15 indicates so. Next, we describe the valid 
values for register 15. 
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» More on PRESCAN and PSTSCAN exits... 


A Valid Return Codes from Pre-scan Exit 


A 0 - Continue as normal 


A 4- Terminate $SCAN, restore data areas (R1 is address of 
CL2’reason code’,AL1{diagnostic length),C’diagnostic 
message’ 


A 8 - Pre-scan exit routine processed keyword scan and reset 
SCWA 


& 12 - Pre-scan exit routine encountered error condition in which 
stmt requests access to uninitialized fields - makes sense only 
for DISPLAY related requests only 


From the pre-scan exit routine, the routine can specify four different return codes in register 15. 
Remember that pre-scan exit routines are given control after isolating the keyword from the input 
and finding the appropriate $SCAN table element. Exit routines are given control before any 
$SCAN facility processing of the keyword. 
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The 0 return code indicates that the exit routine successfully completed whatever processing 
it was expected to do and that the $SCAN facility should continue and process the keyword. 
This processing may include recursive $SCAN calls. 


The 4 return code indicates that some sort of error was detected and that the $SCAN facility 
should terminate processing. Part of termination processing for the $SCAN facility is to re- 
store any fields that the $SCAN facility may have altered. Also, the $SSCAN facility assumes 
that register 1 contains the address of a diagnostic phrase. The diagnostic phrase consists of 
three sections that are assumed contiguous. These sections are: 


= atwo-byte reason code (specified in character form - e.g., CL2’43’) 
= aone-byte length of a diagnostic message (specified in hex - e.g., AL1(23)) 
= a diagnostic message (specified in character form - C’msg text...’) 


The 8 return code indicates that the pre-scan exit routine did all the processing for the keyword 
and that the $SCAN facility should continue with the next keyword at this level. 


The 12 return code indicates that the pre-scan exit routine determined that the field to be al- 
tered is not available and that $SCAN processing should be terminated. This return only 
makes sense for DISPLAY related requests. Ifa display request is made, for instance, at a time 
before the item to be displayed has been set, then the display is impossible and the request 
should be terminated. As part of this termination, the $SCAN facility will issue an internal 
diagnostic phrase in the format defined just above. 
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» More on PRESCAN and PSTSCAN exits... 


A Valid Return Codes from Postscan Exit 


4, 0 - Continue as normal 


és 4- Terminate $SCAN, restore data areas (R1 is addr of 
CL2’reason code’ ,AL1(diagnostic length),C’diagnostic 
message’ 


From the post-scan exit routine, the routine can specify two different return codes in register 15. 
Remember that post-scan exit routines are given control after all the processing for the keyword 
as completed. It is usually taken to “harden” control blocks (obtain permanent copies of the con- 
trol block). 


e The 0 return code indicates that the exit routine successfully completed whatever processing 
it was expected to do and that the $SCAN facility should continue with the next keyword. 


e The 4 return code indicates that some sort of error was detected and that the $SCAN facility 
should terminate processing. Part of terminate processing for the $SCAN facility 1s to restore 
any fields that the $SCAN facility may have altered. Also, the $SCAN facility assumes that 
register 1 contains the address of a diagnostic phrase. The diagnostic phrase consists of three 
diagnostic phrase sections that are assumed contiguous. These sections are: 


» atwo-byte reason code (specified in character form - e.g., CL2’43’) 
» aone-byte length of a diagnostic message (specified in hex - e.g., AL1(23)) 


» a diagnostic message (specified in character form - C’msg text...’) 
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' » More on PRESCAN and PSTSCAN exits... 
A $SCWA fields of interest to PRE and PST SCAN exits 


/ & SCWASTAB - addr of $SCANTAB currently processing 
4, SCWACBAD - addr of control block, if known, for keyword 


A SCWACNTR - field only useable by PRE and PST SCAN exit 
routines 


2 SCWAEXEFL - flag byte available only to PRE and PST SCAN 
exit rtns 


& SCWARLEN - len of remaining input to scan 


As stated earlier, the $SCAN work area ($SCWA) for the current level of scanning is passed to pre- 
and post-scan exit routines. There are a few fields that may be of interest to the pre- and post-scan 
exits. These fields are: 


SCWASTAB - this field contains the address of the $SCAN table element for the current 
keyword that is being processed. 


SCWACBAD .- this field contains the address of the control block that the $SCAN facility 
determined was specified in the $SCAN table element (after any control block indirection 
(CBIND) has been applied). This field may be zero only if CONV=SUBSCAN has been 
specified in the table element. If the pre-scan exit finds this field zero and the CONV= op- 
erand is not equal to SUBSCAN, then the pre-scan exit routine should find the appropnate 
control block and set its address in this field 


SCWACNTR - this is a fullword field that is available to pre- and post-scan routines only. 
The $SCAN main line facility will not use it. You can use it to save an incremental value 
within a loop (e.g., PRT(1-8)) or to hold an address that is determined in a pre-scan exit rou- 
tine. 


SCWAEXEL - this is a flag byte that is reserved for use by pre- and post-scan routines only, 
like the fullword field SCWACNTR. Currently, the four high-most bits are reserved for JES2 
(X’11110000’) and the four low bits are reserved for installations (X’00001111’). 


SCWARLEN - this is a field that contains the length to scan of the remaining input. Pre- and 
post-scan exit routines can use it so that if these routines need to do some scanning of their 
own, they will be able to determine where the ending value is. 


The JES2 pre- and post-scanning exit routines are located in module HASPSXIT. 
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» More on Display Routines 


A Registers: 


Unchanged 
@ of SCWA Unchanged or . 
Diagnostic Ptr 
N/A Unchanged 
@ of $HCT Unchanged 
N/A Unchanged 
@ of $PCE Unchanged 
Return Addr Unchanged 
Entry Addr Return Code 


The display exit routine that is specified on the DISPRTN= operand of the $SCAN macro (the 
invoking macro of the $SCAN facility) has an interface with the $SCAN facility very similar to the 
pre- and post-scan exit routines. It is called whenever the $SCAN facility determines that a line 
of text (DISPOUT) is filled. This output area may contain the results of a display request or of a 
diagnostic error message. 


Before JES2 release 2.2.0, register 0 was undefined upon entry; with 2.2.0, register 0 has the token 
specified via TOKEN= on the $SCAN invocation. Register 1 on entry to the display routine 
contains the address of the current $SCAN work area ($SSCWA). On exit from the display routine, 
this register can contain a pointer to a diagnostic phrase. We will describe this shortly. Registers 
11, 13, 14, and 15 follow the normal JES2 register conventions: 


e =>. Register 11 contains the address of the $HCT. 


e Register 13 contains the address of the Processor Control Element (PCE) that is in control for 
the $SCAN request. 


e Register 14 contains the return address. 


e Register 15 contains the entry address of the display routine. On exit, Register 15 will contain 
areturn code. _ 
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« More on Display Routines... 


A Valid Return Codes from Display Routines 


4 0 - Display area displayed, continue 
4 4- Display not supported 


4 8 - Display routine error, restore data areas (R1 is addr of 
CL2’reason code’,AL1(diagnostic length),C’diagnostic 
message’ 


The valid return codes from the display routine are: 
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0 - The display area has been displayed. Continue $SCAN facility processing. Note that to 
continue $SCAN facility processing may be in fact to terminate the facility. This would occur 
if the display routine was given control to issue a diagnostic message. The following foil will 
explain this further. 


4 - The display routine determined that it was not able to issue the display under the current 
conditions. In this case, the $SCAN facility will throw the current display line information 
away. 


8 - The display routine experienced an error in issuing the display. Register 1 contains a 
pointer to a diagnostic phrase. The diagnostic phrase consists of three diagnostic phrase 
sections that are assumed contiguous. These areas are: 3 


= atwo-byte reason code (specified in character form - e.g., CL2°43’) 
= aone-byte length of a diagnostic message (specified in hex - e.g., AL1(23)) 


= a diagnostic message (specified in character form - C’msg text...’) 
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« More on Display Routines... 


A $SCWA fields of interest to Display Routines 


2 SCWADOUT - addr of display output area 
4 SCWAODLEN - length of display output area 
4, SCWARTCD - possible scan errors 


0 - SCAN ok, issue display 
4 - Obsolete parm 

8 - Non-supported keyword 
12 - Internal $SCAWN error 


On entry to the display routine, the current SCWA ($SCAN work area) is passed in register 1. This 
SCWA will contain three fields of interest to the display routine: 


1. 


SCWADOUT - will contain the address of the display output area. This is the same output 
area that was specified on the $SCAN macro call on the DISPOUT= operand. 


SCWADLEN - will contain the length of the display output area in a half word field. This is 
the same length that was specified on the $SCAN macro call on the DISPLEN= operand. 


SCWARTCD - will contain the return code in a halfword field with which the $SCAN facility 
is currently working. This field will aid the display routine to determine if it has been given 
control to process the results of a display request or to process a $SCAN facility diagnostic 
message. The possible return code values are: 


0 - The $SCAN processing is okay, the display routine has been given control to issue the 
results of a display request. 


4 - The $SCAN facility has encountered an obsolete parameter (as determined from the 
$SCAN table element - see SPL: JES2 User Modifications and Macros for the 
$SCANTAB macro). The display routine has been given control to issue a diagnostic 


message. 


8 - The $SCAN facility has encountered a non-supported keyword. This means that some 
input was passed to the $SCAN facility and the facility could not locate a $SCAN table 
element that matched the input. The display routine has been given control to issue a 
diagnostic message. 


12 - The $SCAN facility has encountered an internal $SCAN error situation and is ter- 
minating the $SCAN request. The display routine has been given control to issue a di- 
agnostic message. 
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¢ $SCAN Tables (Examples - Installation) 


» Objective: 


A Create additional operand 


A Use $SCAN facility table installation extensible function 


e Function: 


_ A Provide the support necessary on the OFFn.STn so that operator 
can specify and alter the TRKGRP value in support for the 
TRKGRP work selection criterion. 


» This is one scheme to complete this objective, others exist 


In order to show how you would specify $SCAN tables, the remaining description of the $SCAN 
tables will step through creating an installation-defined operand to the Offload Sysout Transmitter 
(OFFn.ST) initialization statement and command. 


Objective 


Previously in this discussion, a work selection criterion was added to the Offload Sysout Trans- 
mutter to allow selecting work based on the amount of spool space that had been allocated to a job. 


This work selection criterion was called TRkgrp, where only TR need be specified and an alias” 


value of TG could be used. In the work selection table element for this criterion, the value $4GET 
would use to compare with was the JQE field JQETGNUM and the DCT field DCTUSERO. This 
example will show how to add an operand to the OFFn.ST initialization statement and command 
that would permit the operator to set a threshold limit in the DCTUSERO field. 


To achieve this, you will add an installation table element to the OFFn.ST list of operands. The 
following documents the pieces required, the coding of the table element, and the required code to 
“plug” the table in. This is one scheme to achieve the statement objective; others do exist. 
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» Pieces consist of: 


USER SCAN TABLE 


To achieve the objective, you will need to code two pieces. These pieces are: 


1. 


Exit 0 


As was discussed in “Concepts” on page 6, there are two ways to link the installation table 
with JES2. : 


a. The first of these is to link-edit the installation $SCAN table with the HASJES20 load 
module. This requires the name of the installation table be USEROSTT. This name 
was found by searching the $MCT for the table pair that matches the operand list table 
pair for the OFFn.ST initialization statement. 


b. If you do not wish to link-edit the installation $SCAN table USEROSTT, then you must 
fill in the address of the installation $SCAN table into the $MCT field MCTOSTTU. 
This is the second method. This method requires that you fill in the address of the table 
in the $MCT before invoking the OFFLOAD SYSOUT transmitter to access the 
DCTUSER0O field to initialize it. Depending on when you will use the transmitter, you 
may fill in the address early in initialization or after JES2 is up and running. 


In this example, you will fill in the address of the $SCAN table early in initialization, specif- 
ically in Exit 0. Therefore, you require an Exit 0 that will load your module (if not already 
loaded) and resolve the address of the table. 


User $SCAN Table 


You will have to code a $SCAN table which includes the table element for the operand. We 
will describe the installation table element in a step-wise fashion below. 
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« Table and Operands: 


A Name of keyword is TRKGRP 


& NAME=TRKGRP 


A Minimum length of keyword is TR 


A MINLEN=2 


A Field where value is set is DCTUSERO with length of 2 


A FIELD =(DCTUSERO,2) 


The name of the Offload SYSOUT transmitter operand is TRKGRP to match the work selection 
criterion created in the Work Selection Installation example. This is the name that the operator 
will specify to set the threshold value. Therefore, the NAME= operand is set to TRKGRP. 


Like the work selection criterion, the minimum length that the operator will have to specify for this 
operand is two characters. Therefore, the MINLEN= operand 1s set to 2. 


The field that was used as the device.control block for the work selection criteria was DCTUSERO. 
Therefore, this $SCAN initialization operand will have to set this field. Since the JQETGNUM 
field that is being used as the comparing operand is only two bytes, the length of the DCTUSERO 
full word field is only two bytes. This is specified by coding the length second positional operand 
on the FIELD operand. Therefore, the FIELD= operand 1s set to (DCTUSERO,2). 
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«» Table and Operands... 
A Field DCTUSERO in DSECT DCT 
A DSECT =DCT 
A Value of field is numeric 
& CONV =NUM 
A Valid range of numeric data is 0 to 32,767 


& RANGE = (0,32767) 
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The DCTUSERO field that is set is located in the DCT DSECT. Therefore, the DSECT= oper- 
and is set to DCT. 


The conversion value that we specify for this operand is numeric, thus, the CONV= operand is 
set to NUM. 


Since the maximum amount of spool space that can be allocated to a job must fit in a halfword field 
in the JQE, the maximum threshold value is 32,767. If there may be circumstances where all jobs 
need to be selected, the minimum value is set to 0 (it would make more sense to remove the 
TRKGRP criterion from the work selection list to achieve this end). Therefore, the RANGE= 
operand is set to (0,32767). | 
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MCTMPSTP 


HASPMPST 
TABLE START 
TABLE DEBUG 


ra OC VCUSERMPST) 


DC VCHASPMPST> 


eee eae MCTOSTTP 
oc 


TABLE OFFST VCUSEROSTT) | 
TABLE END DC VCHASPOSTT> 
0 


HASPOSTT 
TABLE START 


TABLE STATUS 
TABLE DISP 
TABLE OSN 


TABLE END 
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In order to set the CB = operand, you must look at the existing table structure and determine where 
the revised table structure will fit. Currently, there is a higher level table that contains the $SCAN 
table elements for the Offload devices. This table element specifies a Control Block of DCT so that 
the proper DCT for this device 1s located by the $SCAN facility. Also, this higher level table ele- 
ment indicates that the operands are included in a _ lower level _ table 
(CONV = SUBSCAN,SUBSCAN= MCTOSTTP)._ It is at this lower level, preceding the JES2 
table of Offload SYSOUT Transmitter operands, that the installation table is placed. Therefore, 


the control block that is wanted at this lower level has been found by the higher level, the parent 
level. 
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« Table and Operands... 


A Use the control block (DCT) addr from the previous $SCAN level 


A CB=PARENT 


A Allow altering during init and command time 


& CALLER=($SCIRPL, $SCIRPLC, $SCDCMDS, $SCSCMDS)} 


Since the control block is located at the parent level, specify the CB= enon as PARENT so 


$SCAN uses the device DCT. 


A CALLERs identifier list 1s specified to allow altering this operand during JES2 initialization and 


JES2 command time processing. 
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Resulting $SCAN Table 


$SCAN Tables ... 


¢ $SCAN Tables (Examples - Installation)... 


USEROSTT S$SCANTAB TABLE=USER 


TRKGRP  $SCANTAB NAME=TRKGRP, 
MINLEN=2, 
FIELD=CDCTUSERO,2), 
DSECT=DCT, 
CONV=NUM, 
RANGE=(0,32767, 
CB=PARENT, 
CALLER=C$SCIRPL, $SCIRPLC, 

$SCDCMDS, $SCSCMDS> 


SSCANTAB NAME=TG, 
CONV=ALIAS, 
SCANTAB=TRKGRP 


SSCANTAB TABLE=ENO 


01/88 129 


The figure above shows the resulting installation $SCAN table to add an operand to the Offload 
SYSOUT Transmitter initialization statement and command. Note that the name of the table 1s 
USEROSTT, so that if you wished to link-edit this table with HASJES20, the table address would 
be placed in the $MCT by the linkage editor. The table is begun with a TABLE= USER to tell 
JES2 that this is an installation table. The name of the operand is TRKGRP although the operator 
need only specify TR. The field that is set is the first two bytes of the fullword field DCTUSERO 
located in the DSECT DCT. The conversion for the input is numeric and the numeric value can- 
not be less than 0 nor greater than 32767. The address of the DCT is propagated down from the 
parent level of SSCAN. Both JES2 initialization and JES2 command time processing may reference 
this table element. | 


An additional table is shown to provide an example of specifying an alias name for the TRKGRP 
operand. This table element simply indicates the name of the alias as TG (to match the work se- 
lection criteria). This table element is known to be an alias (indicated by the CONV = ALIAS) of 
the TRKGRP table element since the alias table element points to the TRKGRP element via the 
SCANTAB operand specifying the TRKGRP table element name of TRKGRP. 


Finally, the table is ended with a TABLE= END to indicate to JES2 that this installation table is 
completed. 
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$SCAN Tables ... 


e $SCAN Tables (Examples - Installation)... 


MCTMPSTP 
HASPMPST OC VCUSERMPST> 
TABLE START 

TABLE DEBUG 

TABLE OFFST 


TABLE ENO 


USEROSST 
TABLE START 


TABLE TRKGRP 
TABLE END 


HASPOSTT 
TABLE START 


TABLE STATUS 

TABLE DISP 

TABLE DSN 
TABLE ENO 


The resulting table configuration is shown in the figure above. The higher level $SCAN table ele- 
ment for the Offload SYSOUT Transmitter points to the MCTOSTTP table pair. The first entry 
in this table pair will point to the installation table USEROSST which contains the installation- 
added operand TRKGRP. The second entry in this table still points to the JES2 table 
HASPOSTT which contains the JES2 operands. In this way, you have added an operand on the 
OFFn.ST initialization statement and command. 
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Coding the Other Required Pieces 


$SCAN Tables ... 


e $SCAN Tables (Examples - Installation)... 


» Required Pieces... 
A Installation $SCAN Table 
A Defined as above 
A Exit 0 


A Obtain $UCT and place address in $HCT 
A Initialize the $UCT 


& Place Installation $SCAN table addr in field MCTOSTTU in 
$MCT in HASPTABS module 


The pieces required to permit you to add an operand are the installation $SCAN table (as coded 
above) and the code for Exit 0. The Exit 0 code is required to do three things: 


1. It must obtain the $UCT and place the $UCT’s address in the $HCT. 
2. It must initialize the $UCT. 


3. Finally, it must place the installation $SCAN table address in the MCTOSTTU field in the 
$MCT in module HASPTABS. 


The code that is contained in “Appendix A. Table Pairs Coding Example” on page 147 is the code 
as you would be required to code it. This code includes: 


1. Exit 0 that obtains the $UCT, places the $UCT address in the $HCT, initializes the $UCT, 
and places the installation $SCAN table address in the $MCT. 


2. The HASPXJ00 module contains, among the other items previously discussed, the $SCAN 
table. 
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$SCAN Tables ... 


@ $SCAN Tables (Examples - Installation)... 


« $SCAN JES2 Tables located in HASPSTAB module 


A DO NOT BE AFRAID TO USE THEM FOR EXAMPLES 


The JES2 $SCAN tables are located in the module HASPSTAB. It is more than likely that there 
is an example in these tables that will aid you in attempting to code your first few tables. Do not 
hesitate to use the JES2 $SCAN tables as an example. Also, use SPL: JES2 User Modifications 
and Macros. This book contains a thorough description of the $SCAN related macros and also 
contains a $SCAN section that makes for useful reading. 
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Conclusion 


Conclusion 


e Table Pairs provide the capability to modify JES2 
processing without modifying source. 


e Table Pairs very pervasive throughout JES2. 


e Require less detailed knowledge of JES2 than needed 
for some exit points. 


@ JES2 still has a lot more to do, but direction clear. 


Hopefully you now know that table pairs provide the capability to modify JES2 processing without 
modifying JES2 source. Through the ability to add, change, and even delete JES2 processors, 
subtasks, trace identifiers, work selection criteria, and initialization statements, you have an ex- 
tremely powerful tool to tailor the JES2 component to match local needs. 


Since the majority of uses for table pairs will be for adding, changing, and deleting initialization 
statements and operands (and, to a lesser extent, trace identifiers and work selection criteria), there 
is less need to have a detailed knowledge of JES2 than is required for exit coding. 


However, this is not true when you need to add JES2 processors and subtasks. In this case the 
systems programmer will need to understand JES2 environments, dispatching, etc., to make use of 
these tables. However, this is not more than what a systems programmer needs to know to code a 
JES2 exit and the ability to add these processors and subtasks provides extremely powerful function. 


Clearly, JES2 design attempts to provide an interface whereby you can tailor the JES2 product to 
meet business needs 1n a way that will not impact an your ability to migrate to newer releases of 
JES2. Although much more is needed in this area, with the use of table pairs you have a workable 
method to do this tailoring without the need to modify IBM-supplied JES2 source code. 
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Appendix A. Table Pairs Coding Example 


This coding example implements an installation security processor. It is made up of a JES2 in- 
itialization exit 0 and a user extension module named HASPXJ00 which contains the installation 
security processor, the installation security subtask, and the installation PCE, DTE, trace, work 
selection, and $SCAN tables. The example includes sample mapping macros $SCYWORK, 
$SCDWORK, and $UCT, and the macro S$USERCBS which invokes the mapping macros. 


Note: This code is provided as an example of installation extensions to JES2. The code is not Type 
1 supported code of IBM; it is not APARable.? A few tests were run using JES2 at the 2.1.5 level. 


The examples are inter-related to show how the tables can be used together. This is not required. 
That is, it is not necessary to code a PCE table (create your own processor) and code a DTE table 
(create your own subtask). In fact, it may make no sense for certain applications to design inter- 
related tables. Our example was contrived to show what can be done, not necessarily what should 
be done. 


There are six pieces required for the example used in this presentation. 


e HASPXJ00 - Installation extension code and tables that are required to create an installation 
security processor, security subtask, trace id, work selection criteria on the offload sysout 
transmitter work selection list, and an additional operand on the offload sysout transmitter. 


e $UCT - contains required fields for table generation 
e $SCDWORK - subtask DTE extension to hold fields specific to a security subtask 
e $SCYWORK - processor PCE extension to hold fields specific to a security processor 


¢ $USERCBS - control block that actually generates the above macros. This control block is 
known by $MODULE and is the way to get $MODULE to generate installation control 
blocks. 


e HASPXITO - Exit 0 module that contains EXITO. This exit initializes the $MCT with the 
addresses of the installation tables located in HASPXJO00. 


9 However, we do encourage you to use the Reader Comment Form in the back of this document to tell 
us about any problems you find. 
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SUSERCBS - Generates User Control Blocks 


MACRO -- SUSERCBS - USER CONTROL BLOCK DSECT 00100000 
SUSERCBS | 00200000 
x * 00600000 
x SUSERCBS - USER CONTROL BLOCK DSECT * 00700000 
x | * 00800000 
% FUNCTION: * 00900000 
x * 01000000. 
x THIS DSECT IS KNOWN BY $MODULE AND WILL BE USED TO GET ALL %* 01100000 
x INSTALLATION CONTROL BLOCKS EXPANDED WITHOUT HAVING TO * 01200000 
x MODIFY THE $MODULE MACRO. * 01300000 
* * 01400000 
% USED BY: * 01500000 
* * 01600000 
x ALL INSTALLATION MODULES TO GENERATE ALL INSTALLATION * 01700000 
x DEFINED CONTROL BLOCKS. FOR DETAILS ON THE FOLLOWING * 01800000 
* DATA, SEE THE INDIVIDUAL CONTROL BLOCK DSECTS. * 01900000 
% * 02000000 
x CREATED BY: N/A FREED BY: N/A * 02100000 
x % 02200000 
x SUBPOOL: N/A KEY: N/A * 02300000 
x * 02400000 
2 SIZE: N/A COMPONENT ID: CODE EXAMPLE % 02500000 
x % 02600000 
x POINTED TO BY: N/A * 02700000 
x * 02800000 
2 FREQUENCY: N/A * 02900000 
x % 03000000 
x RESIDENCY: N/A * 03100000 
x * 03200000 
% SERIALIZATION: N/A * 03300000 
* | * 03400000 
% CHANGE ACTIVITY: GUIDE 65 - CHICAGO, ILL - 7/86 * 03500000 
x % 03600000 
GBLC aTITLEID 03800000 
LCLC  aTITL 
USERCBS DSECT USER CONTROL BLOCK DSECT 03900000 
RTITL SETC ‘&TITLEID -- $UCT - USER CONTROL TABLE' 04000000 
TITLE '&TITL' 04100000 
$UCT , GEN THE UCT 04200000 
&TITL SETC ‘&TITLEID -- $SCDWORK - SECURITY SUBTASK WORK DSECT' 04300000 
TITLE ‘&TITL' 04400000 
$SCDWORK ; GEN THE SECURITY SUBTASK WORK DSECT 04500000 
&TITL SETC ‘&TITLEID -- $SCYWORK - SECURITY PCE WORK DSECT' 04600000 
TITLE ‘&TITL' 04700000. 
SSCYWORK ; GEN THE SECURITY PCE WORK DSECT 04800000 
MEND | 99999999 
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SSCYWORK - Processor Work Area 


MACRO -- SSCYWORK -- USER SECURITY PROCESSOR WORK AREA DSECT 


SSCYWORK 
333888888888 R8R8 BEBE NB88E8B8R8NE8R8UB8UB8EBR8B8BEE8B BEER BRIERE ERE BHIEIORIOEIE 
* x 
* $SCYWORK - USER SECURITY PROCESSOR WORK AREA DSECT % 
x x 
% FUNCTION: % 
x x 
* HOLD FIELDS UNIQUE TO THE SECURITY PROCESSOR PCE * 
x x 
% USED BY: * 
x x 
* ALL SECURITY PROCESSOR PCE(S) % 
x x 
* CREATED BY: PCEDYN FREED BY: PCEDYN % 
* % 
% SUBPOOL: 1 KEY: 1 % 
x x 
% SIZE: SEE SCYLEN EQUATE COMPONENT ID: CODE EXAMPLE % 
* x 
% POINTED TO BY: UCTSYPCE FIELD OF THE $UCT DATA AREA aOMES * 
x x 
cag FREQUENCY: ONE PER SECURITY PCE % 
* x 
% RESIDENCY: VIRTUAL - ABOVE % 
* REAL - ANYWHERE % 
x 2 
* SERIALIZATION: JES2 MAIN TASK SERIALIZATION % 
x x 
% CHANGE ACTIVITY: GUIDE 65 - CHICAGO, ILL - 7/86 % 
% 1/88 - FIXED COMMENT %* 
x % 
3333038223008 BBB RB BERBEB8RB8B88 8888 RBBB 88888 BEER BRE R8 REE BR BRON RRIOE 
PCE DSECT USER SECURITY PROCESSOR WORK AREA 

ORG PCEWORK PCE WORK AREA 

SPACE 1 
JBBVEBRRU BUR BBB BEB BIRR B BBE R8E BB EBB ENB BBB UBER ERE BBR REEF 
x x 
* FIELDS UNIQUE TO THE SECURITY PCE % 
x x 
JEBEOUBUUBUBNN BEBE RUBE BB BEBE RUBE BEB BR BER EEE BBB BEER 8 BEN BBHIOEE 
SCYDTEAD DS A ADDR OF THE SECURITY DTE 


SCYTQE DS XLCUTQELENG ) 
% FIELD GOES HERE 


HASP TIMER QUEUE ELEMENT 


* FIELD GOES HERE 

* FIELD GOES HERE 

SCYLEN EQU  *-PCEWORK LENGTH OF SCY 
MEND 
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00100000 
00200000 
00500000 
00600000 
00700000 
00800000 
00900000 
01000000 
01100000 
01200000 
01300000 
01400000 
01500000 
01600000 
01700000 
01800000 
01900000 
02000000 
02100000 
02200000 
02300000 
02400000 
02500000 
02600000 
02700000 
02800000 
02900000 
03000000 
03100000 
03200000 
03300000 
03300000 
03400000 
03600000 
03700000 
03800000 
03900000 
04000000 
04100000 
04200000 
04300000 
04400000 
04500000 
04600000 
04700000 
04800000 
04900000 
99999999 
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SSCDWORK - Subtask Work Area 


MACRO -- SSCDWORK -- USER SECURITY SUBTASK WORK AREA DSECT 


SSCDWORK 


HEH HHH HIE HEHE IEE HE HEHE HEHE HEHE TE DE DE HEHE FE HE HE HE DE HEHE HE HE HE FE DE DE HE FEE HEHE HE FE HE HE HE HEHEHE EDC HE HE FE FE HE HE FE DE HE HE FE FE HE HEHE HE HE HEHE TE 


KK K KK KK KK OK OK OK OK K OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK 


$SCDWORK - USER SECURITY SUBTASK WORK AREA DSECT 


FUNCTION: 


HOLD FIELDS UNIQUE TO THE SECURITY SUBTASK 


USED BY: 


ALL SECURITY SUBTASKS 


CREATED BY: DTEDYN 
SUBPOOL: 1 


SIZE: SEE SCDLEN EQUATE 


FREED BY: DTEDYN 


KEY: 1 


COMPONENT ID: CODE EXAMPLE 


POINTED TO BY: UCTSYDTE FIELD OF THE S$UCT DATA AREA oaOMES 


FREQUENCY : 


RESIDENCY : 


ONE PER SECURITY SUBTASK 


VIRTUAL - BELOW 
REAL - BELOW 


SERIALIZATION: SUBTASKS FOLLOW MVS SERIALIZATION CONCERNS | 


CHANGE ACTIVITY: GUIDE 65 - CHICAGO, ILL - 7/86 


1/88 - ADD SCDHCT 


K KKK KK KK KK K OK K OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK 


HEH HEHEHE HEE IEE FEE HE HE HEHE EE HEE HE HE HE FE FEE HE HE FE TE HE TE FE FE HE DE HE FE HEE DE HE HE HE FEE HE HEE HE TE HE HE FE HE FE FE HE HE FE HEHE HE FE HE HEHE HEHEHE HEHE 


DTE 


DSECT 
ORG 
SPACE 1 


DTEWORK 


USER SECURITY SUBTASK WORK AREA 
DTE WORK AREA 


* 
x 
x 


FIELDS UNIQUE TO THE SECURITY SUBTASK 


% 
% 
x 


FEI FETE HEHE FE EE FE DE DE HE DE IE DE DE HE FE FE DE DE JE TE FE DE FE DE DE HE FE FE FEE FE FE FE FE FE BE FE FE DE DE DE FE HE HE HE HE HE FE DE DE FE DE HE HE FE HE HE HE HEHE HE HEHE HEE TE 


SCDHCT 


¥* 
* 


SCDLEN 


150 


DS 
FIELD GOES HERE 
FIELD GOES HERE 
EQU  *-DTEWORK 


MEND 


ADDRESS OF HCT aSA 


LENGTH OF SCD 
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00100000 
00200000 
00500000 
00600000 
00700000 
00800000 
00900000 
01000000 
01100000 
01200000 
01300000 
01400000 
01500000 
01600000 
01700000 
01800000 


01900000 — 


02000000 
02100000 
02200000 
02300000 
02400000 
02500000 
02600000 
02700000 
02800000 
02900000 
03000000 
03100000 
03200000 
03300000 
03300000 
03400000 
03600000 
03700000 
03800000 
03900000 
04000000 
04100000 
04200000 
04300000 
04500000 
04500000 
04600000 
04700000 


99999999. 


SUCT - User Communication Table 


MACRO -- S$UCT -- USER COMMUNICATION TABLE DSECT 


$UCT 
33R280 2202 EB AREER 8 EGBG RBBB BBE HBEBIBE ABI BRET BEB BEEEIGEE 
% % 
% $UCT - USER COMMUNICATION TABLE DSECT * 
x % 
% FUNCTION: % 
x % 
% HOLD FIELD VARIABLES COMMON FOR INSTALLATION CODE. % 
* x 
% USED BY: % 
x * 
* ALL INSTALLATION PROCESSOR/FUNCTIONS CAN MAKE USE OF % 
% THE $UCT. x 
x * 
% CREATED BY: HASPXITO FREED BY: JES2 TASK TERMINATION * 
x x 
* SUBPOOL: 0 KEY: 1 * 
x * 
3 SIZE: SEE UCTLEN COMPONENT ID: CODE EXAMPLE * 
% x 
% POINTED TO BY: S$UCT FIELD OF THE SHCT DATA AREA * 
x * 
% FREQUENCY: ONE PER JES2 SYSTEM % 
x x 
% RESIDENCY: VIRTUAL - ABOVE * 
% REAL - ANYWHERE % 
x *% 
% SERIALIZATION: JES2 MAIN TASK SERIALIZATION % 
x % 
% CHANGE ACTIVITY: GUIDE 65 - CHICAGO, ILL - 7/86 % 
x # 
HEHEHE IE HEHE DE IE HEHEHE HEE EEE HEHE IEE HEHE HEHE PEPE DEH DEDEDE DEHE DEE HEIDE DEE E IEEE DE HEHEHE HEE AE HEHE HEE E HEHE DE HEHE HEHEHE HEHE 
UCT DSECT USER COMMUNICATION TABLE DSECT 
UCTID DS CL¢'UCT" UCT IDENTIFIER 
UCTSCDE DS Al *-* ) ADDRESS OF INSTALLATION LOAD MODULE 

SPACE 1 
HK HH HEHEHE HEHEHE HEE HEHEHE DEE HEHE EEE DE HEHEHE HEHEHE HEE PEPE HEDEME DEDEDE HEE PEPEE EEE HEHEHE HE HEDEIE HEHEHE HEHEHE EEE 
x x 
% FIELDS REQUIRED FOR THE PCE TABLES * 
x 3 
HEHE IEFE EE HEIEDE FE IEEE DE HEED DEE HEHEHE PEE PE HEHE DE HEE HEE PEEL HE DE PEE EEE HEHEHE PEEP HEHEHE PEE IEE HEHEHE IEE EPE 

SPACE 1 


UCTMSCTY DS A( *-% ) 
UCTSYPCE DS A( *-% ) 
UCTSYNUM DS H‘'1l',H'O* 
UCTSYQUE DS A( ¥*-* ) 


ADDR OF ENTRY POINT 
SECURITY PROCESSORS 


ADDR OF ELEMENT TO BE VERIFIED 


UPCESCTY EQU 255 ID OF SECURITY PCE 
SDRSCTY EQU 63 DISPATCHER SECURITY RESOURCE 
SPACE 1 
HEHEHE IE HEHEHE IEE IEEE IEH HEHE IEE IEE IEEE HEHEHE HE IEFE DEEMED HEE EDIE HEHEHE HED DEEEHIEHEDE EEE HEE IE HEHEHE HEE EDIE 
x * 
% FIELDS REQUIRED FOR THE DTE TABLES % 
x * 
HHH HEH HEH HEHEHE HEHEHE HEH HEE HEHEHE HEHEHE HEHE HEHEHE HEE HEIDE HEHEHE TEEPE HEHEHE EEE ETE BEPE EERE EEO IIE 
SPACE 1 


UCTMDSCY DS A( *-) ADDR OF ENTRY POINT 


UCTSYDTE DS A( *—% ) ADDR OF SECURITY DTE 
UDTESCTY EQU 255 ID OF SECURITY DTE 
SPACE 1] 
FEIE IE HEHE IEPEIE IEICE IE HE DEE PEBE DE HEED EEE PEED HEHE DEHEIEHE HEE FEIE PEPE EE HEE HEHE HEE EHEPE EEE HEHEHE HEHE HEHEHE IEHIEE 
% x 
% END OF UCT % 
* % 
HEI IEE IE IEE IEE IEEE DEBE HEHE IEEE HEHEHE HEHEHE HEHEHE PEPE HEHE HEHEHE HEHEHE HEHEHE HEHEHE HEE HEHEHE HEHEHE PIE HEHEHE HEHE 
SPACE 1 , 
UCTLEN EQU *-UCT LENGTH OF UCT 
MEND 
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00100000 
00200000 
00500000 
00600000 
00700000 
00800000 
00900000 
01000000 
01100000 
01200000 
01300000 
01400000 
01500000 
01600000 
01700000 
01800000 
01900000 
02000000 
02100000 
02200000 
02300000 
02400000 
02500000 
02600000 
02700000 
02800000 
02900000 
03000000 
03100000 
03200000 
03300000 
03400000 
03500000 
03700000 
03800000 
03900000 
04000000 
04100000 
04200000 
04300000 
04400000 
04500000 
04600000 
04700000 
04800000 
04900000 
05000000 
05100000 
05200000 
05300000 
05400000 
05500000 
05600000 
05700000 
05800000 
05900000 
06000000 
06100000 
06200000 
06300000 
06400000 
06500000 
06600000 
06700000 
06800000 
06900000 
07000000 
99999999 


131 


* KOK OK KK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK KOK OK OK KOK OK OK KOK OK KOK OK OK OK OK OK OK OK OK KK KOK KOK K KOK OK K 


Exit 0 - Inttialization 


Prologue 


xITO 


TITLE ‘USER EXIT 0 MODULE -- PROLOG (MODULE COMMENT BLOCK }° 


HEFCE IE HE HE FE DE HE HEHE HEHE HE HEHE HEHE DE HE TEE FE HE HE HE FE DE HE FE HE HEHE HE HE HE HEHE FE HE HEHEHE TE HE HEHE DE HE HEHE HEHEHE HE FE HEHE HEE HEE HEHEHE FE HE FE FE HEE 


152 


MODULE N 


AME = HASPXITO CSECT 


DESCRIPTIVE NAME = HASP EXIT O INITIALIZATION MODULE 


STATUS = 


FUNCTION 


NOTES = 


DEPEN 


RESTR 


REGISTER CONVENTIONS = RO-R3 


PATCH 


OS/VS2 - SEE S$MODULE EXPANSION BELOW FOR FMID, VERSION 


= THE HASPXITO MODULE INITIALIZES THE INSTALLATION SUCT 
AND OTHER INSTALLATION DEFINED ADDRESSES AND FIELDS. 


SEE BELOW 


DENCIES = 1) JES2 EXIT EFFECTOR 
2) JES2 PROCESSOR AND SUBTASK DISPATCHING 


ICTIONS = THIS CODE IS PROVIDED AS AN EXAMPLE OF 
INSTALLATION EXTENSIONS TO JES2. THIS CODE IS 
NOT TO BE CONSIDERED TYPE 1 SUPPORTED CODE OF 
IBM. 


WORK REGISTER 


RG = ADDRESS OF THE MTE ENTRY 
R5 = ADDRESS OF THE MCT 

R6-R9I = WORK REGISTER 

R10 = ADDRESS OF THE UCT 

R11 = ADDRESS OF THE HCT 

R12 = LOCAL ADDRESSABILITY 

R13 = ADDRESS OF THE HASPINIT PCE 
R14-R15 = WORK AND LINKAGE REGISTER 


LABEL = NONE 


MODULE TYPE = CSECT 


PROCESSOR = OS/VS ASSEMBLER H OR ASSEMBLER XF (370) . 


MODUL 


E SIZE = SEE $MODEND MACRO EXPANSION AT END OF ASSEMBLY 


ATTRIBUTES = NOT REUSABLE, NON-REENTRANT, SUPERVISOR STATE > 


ENTRY PO 


PURPO 


LINKA 


INPUT 


OUTPUT 


PROTECT KEY OF HASP'S (1) OR 0, RMODE 24, 
AMODE 24/31 


INT = EXITO 
SE = SEE FUNCTION 
GE = STANDARD JES2 $SAVE/S$RETURN LINKAGE 


RO = A CODE INDICATING WHERE THE INTIALIZATION OPTIONS 


WERE SPECIFIED 
Rl = ADDRESS OF A 2-WORD PARAMETER LIST WITH THE 
FOLLOWING STRUCTURE : 


WORD 1 (40): ADDR OF INTIALIZATION OPTIONS STRING 
WORD 2 (+4): LENGTH OF INITIALIZATION OPTIONS STRING 
R11 = ADDRESS OF HCT 
R13 = ADDRESS OF INITIALIZATION PCE 
R14 = RETURN ADDRESS 
R15 = ADDRESS OF ENTRY POINT 
R15 = RETURN CODE 


(ALL OTHERS UNCHANGED }) 
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* KK KK K OK OK KOK OK OK K OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OX 


00010000 
00020000 
00030000 
00040000 
00050000 
00060000 
00070000 
00080000 
00090000 
00100000 
00110000 
00120000 
00130000 
00140000 
00150000 
00160000 
00170000 
00180000 
00190000 
00200000 
00210000 
00220000 
00230000 
00240000 
00250000 
00260000 
00270000 
00280000 
00290000 
00300000 
00310000 
00320000 
00330000 
00340000 
00350000 
00360000 
00370000 
00380000 
00390000 
00400000 
00410000 
00420000 
00430000 
00440000 
00450000 
00460000 
00470000 
00480000 
00490000 
00500000 
00510000 
00520000 
00530000 
00540000 
00550000 
00560000 
00570000 
00580000 
00590000 
00600000 
00610000 
00620000 
00630000 
00640000 


* * 00650000 
% EXIT-NORMAL = RETURN TO CALLER (HASPIRMA) * 00660000 
* %* 00670000 
% EXIT-ERROR = RETURN TO CALLER (HASPIRMA) WITH NON-ZERO RETURN CODE ¥* 00680000 
* * 00690000 
% EXTERNAL REFERENCES = SEE BELOW * 00700000 
* * 00710000 
* ROUTINES = MISCELLANEOUS JES2 SERVICE ROUTINES, AND- * 00720000 
% MISCELLANEOUS STANDARD SUPERVISOR SERVICE ROUTINES * 00730000 
* * 00740000 
* DATA AREAS = SEE $SMODULE MACRO EXPANSION * 00750000 
* * 00760000 
* CONTROL BLOCKS = SEE $MODULE MACRO EXPANSION * 00770000 
* * 00780000 
* TABLES = SEE S$MODULE MACRO DEFINITION (BELOW) * 00790000 
x %* 00800000 
% MACROS = JES2 - SENTRY, SGETMAIN, $MODCHK, $SRETURN, $SSAVE * 00810000 
* * 00820000 
% MACROS = MVS - NONE * 00830000 
% %* 00840000 
% CHANGE ACTIVITY: GUIDE 65 - CHICAGO, ILL - 7/86 % 00850000 
% CODE AT SP1.3.6/72.1.5 LEVEL * 00860000 
* 1/88 - VARIOUS FIXES FOR T.B. * 00860000 
x * 00870000 


Real Code 
TITLE ‘USER XITO INITIALIZATION -~- PROLOG (SHASPGBL )' 00890000 
COPY S$HASPGBL COPY HASP GLOBALS 2133 00900000 

q 

TITLE ‘HASP XITO INITIALIZATION -- PROLOG ($MODULE }' 02133 00910000 
HASPXITO $MODULE NOTICE=NONE , c00920000 
TITLE='HASP XITO INITIALIZATION', C00930000 
SDTE » GENERATE HASP DTE DSECT C00940000 
SERA, GENERATE HASP ERA DSECT C00950000 
SHCT, GENERATE HASP HCT DSECT C00960000 
SHASPEQU, GENERATE HASP EQUATES DSECT C00970000 
SMCT, GENERATE HASP MCT DSECT Coo098s0000 
SMIT, GENERATE HASP MIT DSECT C00990000 
SMITETBL > GENERATE HASP MITETBL DSECT C01000000 
SMODMAP > GENERATE HASP MODMAP DSECT C01010000 
S$PCE , GENERATE HASP PCE DSECT C01020000 
STQE > GENERATE HASP TQE DSECT C01030000 
SUSERCBS,» GENERATE HASP USERCB DSECT C01040000 
$SXECB GENERATE HASP XECB DSECT 01050000 
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TITLE ‘USER XITO INITIALIZATION -- EXITO 
ECESSARY INFORMATION’ 


HEF IEH FEKETE HEHE HE HEHE HEHEHE HEHE PEE HEHE HEE HE HEHE HEHE HEHEHE HEHE TEE FE HE TE HE FE HE HE JE HEE HE HEHE DEBE HE DE TE HEHE FE HE DE HE TE HE FE HE FEE FE HEE HEE DE 


FUNCTION: 


ADDRESSES. 


LINKAGE : 


ENVIRONMENT : 


RECOVERY : 
NONE 


REGISTER USAGE (ENTRY/EXIT ): 


PARAMETER LIST: 


REGISTER USAGE CINTERNAL ): 


RETURN CODES (R15 ON EXIT): 


* KK OK OK OK K OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OX 


OTHER CONSIDERATIONS: 


* N/A, 


CALL BY JES2 INITIALIZATION 


REG VALUE ON ENTRY 

RO WHERE INIT OPTIONS 
SPECIFIED 

Rl ADDR OF PARM LIST 

R2-R10 N/A 

Ril HCT BASE ADDRESS 

R12 N/A 

R13. INIT PCE BASE ADDRESS 

R14 RETURN ADDRESS 

R15 ENTRY ADDRESS 


REG VALUE 

RO-R3 WORK REGISTERS 

RG MTE ENTRY ADDRESS 
R5 MCT BASE ADDRESS 
R6-9 WORK REGISTER 

R10 UCT BASE ADDRESS 
R11 HCT BASE ADDRESS 
R12 LOCAL BASE ADDRESS 
R13 INIT PCE BASE ADDRESS 
R14 LINK/WORK REGISTER 
R15 LINK/WORK REGISTER 


EXITO - INSTALLATION EXIT 0 ROUTINE 


THIS EXIT POINT OBTAINS A SUCT CONTROL BLOCK, INITIALIZES 
IT AND PLACES ITS ADDRESS IN THE $HCT. THIS ROUTINE ALSO 
INITIALIZES THE SMCT WITH THE SPECIFIED INSTALLATION TABLE 


JES2 MAIN TASK LIMITED CINITIALIZATION). 


VALUE ON EXIT 


UNCHANGED 
UNCHANGED 
UNCHANGED 
UNCHANGED 
UNCHANGED 
UNCHANGED 
UNCHANGED 
RETURN CODE (SEE BELOW) 


+0 - ADDR OF INIT OPTIONS STRING 
+4 - LENGTH OF INIT OPTIONS STRING 


0 - PROCESSING SUCCESSFUL (NO ERRORS) 
12 - PROCESSING FAILED, TERMINATE JES2 


* KK OK KK OK K OK K K OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK 


HEH PEHE HE HEE HEHEHE HE HEHEHE FE HEHE HEHEHE HE HEDEHE HEHEHE HEHE HEHEHE TE HE FE HE DEH DEDEDE DE HE HEE HE HEHE HEHE DE HE HEE HE HEHEHE TE HEHEHE FE HEHEHE HEHE HEHEHE 
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~ OBTAIN AND SET NC0O1060000 


01070000 
01080000 
01090000 
01100000 
01110000 
01120000 
01130000 
01140000 
01150000 
01160000 
01170000 
01180000 
01190000 
01200000 
01210000 
01220000 
01230000 
01240000 
01250000 
01260000 
01270000 
01280000 
01290000 
01300000 
01310000 
01320000 
01330000 
01340000 
01350000 
01360000 
01370000 
01380000 
01390000 
01400000 
01410000 
01420000 
01430000 
01440000 
01450000 
01460000 
01470000 
01480000 
01490000 
01500000 
01510000 
01520000 
01530000 
01540000 
01550000 
01560000 
01570000 
01580000 
01590000 
01600000 
01610000 
01620000 
01630000 
01640000 
01650000 
01660000 
01670000 
01680000 
01690000 
01700000 
01710000 
01720000 
01730000 
01740000 


SPACE 1 

USING UCT,R10 ESTABLISH UCT ADDRESSABILITY 

SPACE 1 
EXITO SENTRY BASE=R12 DEFINE HASPXITO ENTRY POINT 

SPACE 2 

SSAVE TRACE=NO,NAME=EXITO GET NEW SAVE AREA, SAVE REGS 

LR R12,R15 ESTABLISH BASE REGISTER 

CLC SUCT »$ZEROS ALREADY OBTAINED $UCT... 

BNE XITRETO YES, RETURN TO JES2 

EJECT 
EIE HEHE HEHE HEHE HEE HE IE HEHE EEE TE HEHE IEEE DED HE DEDEDE PEE DE HEE DE IEEE HEHEHE DEDEDE DE HEHE IEHE EME HEHE IE HEIDE HEHEHE HEHEHE HEDEIE 
% * 
% OBTAIN AND INITIALIZE THE UCT % 
x * 
HEHEHE HEHEHE HEHEHE HEHEHE HEHE IE HEHE IE HEHE HEHE DE HEE DEEDE EEE DEDEDE EEE HEE HEHEHE DEDEDE EEE IEEE EIE DEE HE PEPE HEHEHE HEHEHE EIDE 

SPACE 1 

SGETMAIN RC,LV=UCTLEN,SP=0,LOC=ANY OBTAIN THE SUCT 

LTR R15,R15 GETMAIN SUCCESSFUL... 

BNZ XITGTERR NO, INDICATE ERROR ALLOCATING STOR 

SPACE 1 

LR R2,R1 SET TO 

LA R3,UCTLEN CLEAR THE 

SLR R15,R15 STORAGE FOR 

MVCL R2,R14¢ THE $UCT 

SPACE 1 

ST R1,SUCT SET UCT ADDRESS IN $HCT 

LR R10,R1 SET UCT ADDRESSABILITY 

MVC UCTID,=CL4¢'UCT" SET UCT ID 

MVC UCTSYNUM,$H1 SET NUMBER OF PCE(S) TO DEFINE 

EJECT 
HEHEHE IEEE IEEE IEEE HEE IEHE IEEE EEE IEEE IEEE IEEE HEHE IE HEHE HEHEHE HEHEHE HEHEHE HEHEHE HEHEHE IEEE 
x % 
* LOAD MODULE THAT CONTAINS THE SECURITY PCE, SECURITY DTE> % 
% AND THE NECESSARY TABLES TO INSTALL INSTALLATION TAILORING * 
* * 
EI IE IE HEHE IEE BEE EEE IEEE HEHEHE EEE DEDEDE EDEEHEDE DE EEE EEE EEE HEHEHE PEPE HEHE PEDE HEE HEP HE HEIE HEHEHE EEE IEE IONE 

SPACE 1 

L R1 , SHASPMAP GET THE HASP MODMAP ADDRESS 


ICM R1,B'1111' ,MAPADDR+MAPJXMOD-MAP(R1) IF HASPXJOO IN 
BNZ XITMODAD HASJES20, SKIP LOAD 

SPACE 1 

SMODCHK NAME='HASPXJOO' ,LOAD=YES,TEST=(MIT »VERSION ), 


01750000 
01760000 
01770000 
01780000 
01790000 
01800000 
01810000 
01820000 
01830000 
01840000 
01850000 
01860000 
01870000 
01880000 
01890000 
01900000 
01910000 
01920000 
01930000 
01940000 
01950000 
01960000 
01970000 
01980000 
01990000 
02000000 
02010000 
02020000 
02030000 
02040000 
02050000 
02060000 
02070000 
02080000 
02090000 
02100000 
02110000 
02120000 
02130000 
02140000 
02150000 


C02160000 


MESSAGE=YES,ERRET=XITGTERR LOAD THE INSTALLATION MODULE 02170000 


SPACE 1 
LR R1,RO 
XITMODAD ST R1,UCTSCDE 
EJECT 
HEHEHE IEEE HEHE TEE HEHE IEE IEEE DE HEHEHE DE PE PE DEE DEEPEDEDEE IEEE IE DE PEDE DEDEDE DEDEDE HE JEPEDEFEDE DEED DEEPEIE DEDEDE IE IEIEIE 


GET EP ADDRESS IN R1 
SAVE THE LOAD MODULE ADDRESS aMES 


SEARCH THROUGH MODULE TO FIND ENTRY POINTS FOR THE SECURITY 
PCE, SECURITY DTE, PCE TABLE, DTE TABLE, TID TABLE, WORK 
SELECTION TABLE, AND THE $SCAN TABLE. 


K K K K XK 
* KK K XK 


HEHE IEE IEE HEE HE EPC DE HEHEHE DERE HEHEHE DEE PE HEHEHE PEE HEE HEHEHE HE HEHEHE HEHEHE HE HEHEHE HEHEHE HEHEPE HEHE HEHEHE HEHEHE HEHEHE TETE 
SPACE 1 


USING MTE,R¢ ESTABLISH MTE ADDRESSABILITY 


USING MCT,R5 ESTABLISH MCT ADDRESSABILITY 
SPACE 1 
L R5,SMCT OBTAIN THE MCT ADDRESS 


L R4 »MITENTAD-MIT(,R1) OBTAIN THE MITABLE ADDRESS 

XITOLP LA R6 »XITOTBL1 OBTAIN THE TBL OF ENTRY POINTS ADDR 
LA R7,XITOTBLL GET THE NUMBER OF ENTRIES IN TABLE 
CLI MTENAME »X'FF ‘ FOUND END OF TABLE... 
BE XITENDT YES, GO VERIFY ADDRESSES 

XITOMTL LH R1,TBLFLDOF( ,R6) OBTAIN THE OFFSET TO THE FIELD 


CLC MTENAME,TBLNAME(R6) ENTRY IN MIT MATCH REQUEST IN TABLE 


BNE XITOTB NO, INCREMENT TO NEXT TABLE ENTRY 
CLC TBLFLDOCB(L'TBLFLDCB,R6é),$ZEROS YES, CB THE UCT... 

BE XITOUCT YES, GO SET FIELD ADDRESS IN UCT 
ALR = R1,R5 SET THE FIELD ADDRESS IN THE MCT 

B XITOMVC GO SET ENTRY ADDRESS IN MCT 
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02180000 


02190000 
02200000 
02210000 
02220000 


02230000 


02240000 
02250000 
02260000 
02270000 
02280000 
02290000 
02300000 
02310000 
02320000 


02330000 


02340000 
02350000 
02360000 
02370000 
02380000 
02390000 
02400000 
02410000 
02420000 
02430000 
02440000 
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XITOUCT 
XITOMVC 


XITOTB 


XITOLPC 
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SPACE 1 

ALR R1,R10 

MVC 0(4,R1),MTEADDR 
B XITOLPC 

SPACE 1 


LA R6,TBLENTYL( ,R6 ) INCREMENT TO NEXT TABLE ENTRY 

CHECK NXT TABLE ENTRY AGAINST MITABL 
INCREMENT TO NEXT MITABLE ENTRY 
CONTINUE SEARCH FOR ENTRY POINTS 


BCT R7»XITOMTL 
LA R4 ,»MTELEN( ,R4¢) 
B XITOLP 
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SET FIELD ADDRESS IN THE UCT 
MOVE ENTRY ADDR INTO CONTROL BLOCK 
GO CHECK NEXT MIT ENTRY 


02450000 
02460000 
02470000 
02480000 
02490000 

02500000 
02510000 
02520000 
02530000 
02540000 


JEIE FE IE IE HE EE IE DE FE JE TE FE DE HE FE DE HE ETE HE TE HEHE BE HE FE DE HE EE HE TE HE FE DE HE FE HE FE FEE HE HE HE FETE HE EE HEE DE HE DE HE FE HE HE DE HEHE FE HEHE HEHE HE HE 


x x 
% VERIFY THAT THE NECESSARY ADDRESSES HAVE BEEN FOUND % 
% % 
HEHE IEIEDEIEDE TEE TE HEE HEDE DEH IEEE HEE IEEE ED HE HEHE DE HEE FE DEDEDE EEE DEEDES AAAEH IEEE HIE IEE 
SPACE 1 
XITENDT LA R6 ,XITOTBL1 SET THE ADDRESS TO TABLE 
LA R7»XITOTBLL SET THE NUMBER OF ENTRIES 


XITCLCLP LH R1,TBLFLDOF( ,R6) OBTAIN THE OFFSET INTO THE CB 


CLC TBLFLDCB(L'TBLFLDCB,R6),$ZEROS CONTROL BLOCK THE UCT... 

BE XITUCT YES, GO CHECK IT 

AL = R1,$MCT NO, GET THE MCT FIELD ADDRESS 

B XITCLC GO CHECK IF ADDRESS SET 

SPACE 1 7 : 
XITUCT ALR R1,R10 GET THE UCT FIELD ADDRESS 
XITCLC CLC 0(4,R1),$ZEROS FIELD SET... 

BE XITGTERR NO, EXIT WITH AN ERROR 

LA _- R6,TBLENTYL(,R6) = BUMP TO NEXT TABLE ENTRY 

BCT R7,XITCLCLP GO CHECK NEXT TABLE ENTRY 

SPACE 1 
HEHEHE EH IEICE HE JE IEDE JE IC IE TE JE IE JE FE EE JE IE JE IE JE FE JE HE DEE JE HE JE FE DE FE JE HE FE DE DE TE DE DE SE DEDEDE DE DE FE DE FE FE FE FE FE DE FE DE FE DE FE DEE FE DE HE JE 
x x 
x SET GOOD RETURN CODE AND RETURN % 
x x% 
HEIN IEIE IEICE IE DE JE DE JE ENE DE FE DE JE TE FEE JE FEE DE HE FEE HEE HEHE FEE FETE JE FEE JE FE DE DE HE DE DE HE DEDEDE HE FE DE FE HE JHE FE DE FE DE DE HE DE HE JE DEE ETE 

SPACE 1 
XITRETO SLR R15,R15 INDICATE GOOD RETURN 

B XITRET GO RETURN TO JES2 

SPACE 1 | 
HHH IEE FE HIE DE DE EE HE DE FE DE FE FEE THE EE TEE HEE JE HEE DE HEE FE FE FE DE JE DE FETE DE SEE SEE FE FEE DE JE DE HEE FETE FE HE DE JE DE DHE FE DE JE DE FE FE DE EE 
% % 
* SET ERROR RETURN AND RETURN TO JES2. x 
x * 
HEHEHE HEHE FETE DE TE DE HE FEE JEJE DE HE FE DE HE DE HE DEDEDE DE HE JE DE DE DE JE DE FE FE JE DE FE DE FE DE FE FE FETE FE FE TEBE DE FE DE FETE FE FE DE FE DE FE FE DE FE FE JE FE FE FETE TE 

SPACE 1 
XITGTERR LA = R15512 INDICATE ERROR RETURN 

SPACE 1 
XITRET $RETURN TRACE=NO,RC=(R15) END OF EXITO INITIALIZATION 

EJECT 


HE IEIEIE IE HEHE FEDE DE HE FEE HE HE FE JE TE DE HE HE DE FE HE HE HE FE FE IE FE TE JE DE HE HE DE FE HE PEDEDE HE HE HE HEE HE FEDE HEE HEE DE HEHE HE HE FE FE DE HE HE HE HEHE HEHE HEHEHE 


x | x 
* BUILD THE TABLE OF ENTRY POINTS THAT ARE TO BE FOUND. * 
% THE TABLE CONSISTS OF: * 
x x 
% CL8"NAME OF ENTRY POINT’, % 
* AL2(OFFSET INTO EITHER UCT OR MCT OF FIELD TO SET) * 
% AL2(0 IF UCT OR 1 IF MCT) % 
% % 
FEIEIEIE IEF IE IE DE IEE FE IEE IE IE IEDE IE HEE DE DEE DEE HED DE DEH PEE PEE IEEE PEE DOH IEEE HEHEHE HEHEHE HEHE HEHEHE 

SPACE 1 

DS OF 


XITOTBL1 DC CL8'USCTPCE ' ,AL2(UCTMSCTY-UCT J) ,AL2(0) 
DC CL8‘USCTDTE ' ,AL2(UCTMDSCY-UCT ) ,AL2(0) 
DC CL8'USERPCET ' ,AL2(MCTPCETU-MCT ),AL2(1) 
DC CL8‘USERDTET' ,AL2(MCTDTETU-MCT ),AL2(1) 
DC CL8'USERTIDT ‘ ,AL2(MCTTIDTU-MCT ),AL2(1) 


DC CL8'USERSTHT ' ,AL2(MCTSTWTU-MCT ) ,AL2(1) 
DC CL8'USEROSTT ' ,AL2(MCTOSTTU-MCT },AL2(13 
XITOTBLL EQU (*-XITOTBL1)/12 CALC NUMBER OF ENTRIES 
SPACE 1 
TBLNAME EQU 0,8 NAME OF ENTRY POINT 
TBLFLDOF EQU 8,;2 FIELD OFFSET 
TBLFLDCB EQU) = 1052 FIELD CONTROL BLOCK 
TBLENTYL EQU 12 LENGTH OF TABLE ENTRY 
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02550000 
02560000 
02570000 
02580000 
02590000 
02600000 
02610000 
02620000 
02630000 
02640000 
02650000 
02660000 
02670000 
02680000 
02690000 
02700000 
02710000 
02720000 
02730000 
02740000 
02750000 
02760000 
02770000 
02780000 
02790000 
02800000 
02810000 
02820000 
02830000 
02840000 
02850000 
02860000 
02870000 
02880000 
02890000 
02900000 
02910000 
02920000 
02930000 
02940000 
02950000 
02960000 
02970000 
02980000 
02990000 
03000000 
03010000 
03020000 
03030000 
03040000 
03050000 
03060000 
03070000 


03080000 — 


03090000 
03100000 
03110000 
03120000 
03130000 
03140000 
03150000 
03160000 
03170000 
03180000 


Epilog 


APARNUM DC CL7 "XXXXXxXxX ' 
END > END OF HASPXITO 
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TITLE ‘HASP XITO INITIALIZATION -- EPILOG ($MODEND)' 


SMODEND , 
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APAR NUMBER 


99990000 
99991010 
99999999 
99999999 


mn 
Ke 


User Extension Code and Tables 


Prologue 
XJOO TITLE ‘USER EXTENSION MODULE -- PROLOG (MODULE COMMENT BLOCK)‘ 00010000 
FEIEIEIEIE IE IE HEHE FEE IE HE DE HE IE HEE IE FE HE TE FE HEHEHE IE HE IE IE HE FE EE IE FE HE FE HE HE HE DE HE HE DE HE HEHE FE HE FE HE FE DE HE HE FE DE DE DEE JE 3E 3 3E3E3EIEIE 000Z0000 
* * 00030000 
% MODULE NAME = HASJES20 ( HASPXJOO CSECT } * 00040000 
* * 00050000 
% DESCRIPTIVE NAME = HASPXJOO CSECT OF JES2 MAIN MODULE * 00060000 
* * 00070000 
* * 00080000 
% STATUS = OS/VS2 - SEE $MODULE EXPANSION BELOW FOR FMID, VERSION * 00090000 
* | * 00100000 
% FUNCTION = THE HASPXJOO CSECT CONTAINS THE INSTALLATION SECURITY  %* 00110000 
x PROCESSOR, THE INSTALLATION SECURITY SUBTASK, AND * 00120000 
* THE INSTALLATION PCE, DTE, TRACE, WORK SELECTION; * 00130000 
* AND $SCAN TABLES. * 00140000 
* * 00150000 
% NOTES = SEE BELOW * 00160000 
* * 00170000 
% DEPENDENCIES = JES2 PROCESSOR AND SUBTASK DISPATCHING * 00180000 
* * 00190000 
% RESTRICTIONS = THIS CODE IS PROVIDED AS AN EXAMPLE OF %* 00200000 
* INSTALLATION EXTENSIONS TO JES2. THIS CODE IS » 00210000 
* NOT TO BE CONSIDERED TYPE 1 SUPPORTED CODE OF * 00220000 
* IBM. * 00230000 
* | * 00240000 
Z % REGISTER CONVENTIONS = SEE ENTRY POINT DOCUMENTATION * 00250000 
i x * 00260000 
S % MODULE TYPE = PROCEDURE, TABLE ( CSECT TYPE ) * 00270000 
* * 00280000 
% PROCESSOR = OS/VS ASSEMBLER H OR ASSEMBLER XF (370) * 00290000 
x * 00300000 
% MODULE SIZE = SEE $MODEND MACRO EXPANSION AT END OF ASSEMBLY * 00310000 
= * 00320000 
% ATTRIBUTES = HASP REENTRANT, RMODE 24, AMODE 24/31. * 00330000 
* * 00340000 
% ENTRY POINT = USCTPCE - INITIAL ENTRY TO SECURITY PROCESSOR * 00350000 
* USCTDTE - INITIAL ENTRY TO THE SUBTASK USED FOR * 00360000 
* AUTHORIZATION CHECKS * 00370000 
x USERPCET - ENTRY FOR INSTALLATION PCE TABLE * 00380000 
* USERDTET - ENTRY FOR INSTALLATION DTE TABLE * 00390000 
* USERTIDT - ENTRY FOR INSTALLATION TRACE ID TABLE %* 00400000 
* USERSTWT - ENTRY FOR INSTALLATION OFFLOAD SYSOUT ¥* 00410000 
* TRANSMITTER WORK SELECTION TABLE * 00420000 
* USEROSTT - ENTRY FOR INSTALLATION OFFLOAD SYSOUT ¥* 00430000 
* TRANSMITTER OPERAND TABLE * 00440000 
* * 00450000 
% PURPOSE = SEE FUNCTION * 00460000 
* 00470000 
% LINKAGE = SEE ENTRY POINT DOCUMENTATION * 00480000 
* * 00490000 
% INPUT = SEE ENTRY POINT DOCUMENTATION * 00500000 
* | | * 00510000 
% OUTPUT = SEE ENTRY POINT DOCUMENTATION * 00520000 
* | * 00530000 
% EXIT-NORMAL = SEE ENTRY POINT DOCUMENTATION * 00540000 
* * 00550000 
%  EXIT-ERROR = SEE ENTRY POINT DOCUMENTATION * 00560000 
x * 00570000 
% EXTERNAL REFERENCES = SEE BELOW * 00580000 
pie * * 00590000 
( % ROUTINES = NONE * 00600000 
* * 00610000 
% DATA AREAS = SEE $MODULE MACRO SPECIFICATION * 00620000 
* * 00630000 
% * 00640000 


CONTROL BLOCKS = SEE SMODULE MACRO SPECIFICATION 
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TABLES 


MACROS 


MACROS 


CHANGE 


* KK KK KOK OK OK K OK OK OK OK 


= SEE $MODULE MACRO SPECIFICATION 


= MVS 


ACTIVITY: 


SWSTAB 


JES2 - $ACTIVE, $AMODE, $CALL, SDECODE, $DORMANT, $DTEDYN, 
SENTRY, SMODULE, $PCETAB, SREGS, SRETURN, $SSAVE, 
S$SCANTAB, SSTIMER, $STORE, S$TIDTAB, $TRACE, $WAIT, 


- ATTACH, DEQ, ENQ, ESTAE, POST, SDUMP, WAIT 


CODE AT SP1.3.6/2.1.5 LEVEL 
1/88 VARIOUS FIXES BY BDB, SA», JK» MES, SWW FOR TB* 00760000 


GUIDE 65 - CHICAGO, ILL - 7/86 


* K KK OK OK K OK OK OK OK OX 


00660000 
00670000 
00680000 
00690000 
00700000 
00710000 
00720000 


00740000 
00750000 
00760000 


* 00770000 


HE IE IE HE HE HEFCE JE HE IE IE IE IE IE IE IE EE DE DE DEE FE HE HEHE IE FE DE HEHE FE HE FE JE DE HE HE FE FETE JE DE HE HEE DE DEDEDE HEHE FE ETE DE HE HE ENE FETE HEE HEHETHETNEINENHW OO7EO0O0O 


HASPXJOO S$MODULE NOTICE=NONE » 
ENTRIES=(USERPCET ,USERDTET »USERTIDT ,USERSTWT ,»USEROSTT ) > 


TITLE "USER EXTENSION MODULE -- PROLOG (SHASPGBL }' 
COPY HASP GLOBALS 
"USER EXTENSION MODULE -- PROLOG (SMODULE )' 


COPY 
TITLE 


SHASPGBL 


TITLE="USER EXTENSION MODULE ', 


$DCT> 
SDTE > 
SDTETAB, 
SERA, 
SHASPEQU, 
SHCT > 
SJQE ; 
SMIT > 
$PCE > 
S$PCETAB, 
SRDRWORK ,» 
SSCANTAB >» 
$SCAT > 
$SVT > 
$TIDTAB, 
$TLGWORK , 
$TQE » 
STRP » 
$TTE > 
SUSERCBS , 
SWSTAB >» 
$XECB 


GENERATE 
GENERATE 
GENERATE 
GENERATE 
GENERATE 
GENERATE 
GENERATE 
GENERATE 
GENERATE 
GENERATE 
GENERATE 
GENERATE 
GENERATE 
GENERATE 
GENERATE 
GENERATE 
GENERATE 
GENERATE 
GENERATE 
GENERATE 
GENERATE 
GENERATE 
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HASP 
HASP 
HASP 
HASP 
HASP 
HASP 
HASP 
HASP 
HASP 
HASP 
HASP 
HASP 
HASP 
HASP 
HASP 
HASP 
HASP 
HASP 
HASP 
USER 
HASP 
HASP 


DCT DSECT 

DTE DSECT 
DTETAB DSECT 
ERA DSECT 
EQUATES DSECT 
HCT DSECT 

JQE DSECT 
MIT DSECT 

PCE DSECT 
PCETAB DSECT 
RDRWORK DSECT 
SCANTAB DSECT 
SCAT DSECT 
SVT DSECT 
TIDTAB DSECT 
TLGWORK DSECT 
TQE DSECT 

TRP DSECT 

TTE DSECT 
DSECTS 

WSTAB DSECT 
XECB DSECT 


00790000 

00800000 

00810000 
C00820000 
C00830000 
C00840000 
C00850000 
C00860000 
C00870000 
C00880000 
C00890000 
C00900000 
C00910000 
C00920000 
C00930000 
C00940000 
C00950000 


-C€00960000 
C00970000 . 


C00980000 
C00990000 
C01000000 
C01010000 
C01020000 
C01030000 
C01040000 
C01050000 

01060000 


00650000 


00730000 


“Kas 
éy 


{ Overview 


TITLE "USER EXTENSION MODULE -- INTRO - BRIEF OVERVIEW OF MC01070000 

FUNCTION AND RELATED PIECES' 01080000 

JEIEIEIEIE IE IE IE IE IE HE JE HE HE HE FE EE HEHE FE IE IE JE HE JE HEE HEHEHE HE HE IE IEE HEE HEE IEEE IEDC DEE HE IE IEE JE HE IE FE IE IEEE EE EE HE HEHEHE HHHH 01090000 
* * 01100000 
% FUNCTION -- THIS MODULE CONTAINS THE INSTALLATION EXTENSION CODE * 01110000 
* AND TABLES THAT ARE REQUIRED TO CREATE AN INSTALLATION * 01120000 
% SECURITY PROCESSOR, SECURITY SUBTASK, TRACE ID, WORK * 01130000 
* SELECTION CRITERIA ON THE OFFLOAD SYSOUT TRANSMITTER %* 01140000 
* WORK SELECTION LIST, AND AN ADDITIONAL OPERAND ON THE % 01150000 
* OFFLOAD SYSOUT TRANSMITTER. * 01160000 
* * 01170000 
% REQUIRED PIECES -~ HASPXJOO - THIS MODULE * 01180000 
% $SUCT - CONTAINS REQUIRED FIELDS FOR TABLE * 01190000 
* GENERATION % 01200000 
* SSCDWORK - SUBTASK DTE EXTENSION TO HOLD FIELDS * 01210000 
* SPECIFIC TO A SECURITY SUBTASK * 01220000 
% SSCYWORK - PROCESSOR PCE EXTENSION TO HOLD * 01230000 
%* FIELDS SPECIFIC TO A SECURITY * 01240000 
%* | PROCESSOR * 01250000 
% SUSERCBS - CONTROL BLOCK THAT ACTUALLY GENERATES * 01260000 
* THE ABOVE MACROS. THIS CONTROL BLOCK * 01270000 
%* IS KNOWN BY S$MODULE AND IS THE WAY %* 01280000 
* FOR AN INSTALLATION TO GET $MODULE TO * 01290000 
%* GENERATE THEIR CONTROL BLOCKS * 01300000 
%* HASPXITO - EXIT O MODULE THAT CONTAINS EXITO. * 01310000 
* THIS EXIT INITIALIZES THE $MCT WITH * 01320000 
%* THE ADDRESSES OF THE INSTALLATION * 01330000 
%* TABLES LOCATED IN HASPXJOO. * 01340000 
* * 01350000 


HEHE HEHEHE IE IE FE FE HE FEE IE EE DE HEHEHE DEBE HE HEHEHE HEHEHE HEHE EEE HEE HE DEE DE HEHEHE FE FE IE IE EE JE JE EE HE FE HEHE HE HEE HEE TEE HEHEHE HE HIEHIHE 01360000 
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USCTPCE - Initial Entry Point 


TITLE ‘USER EXTENSION MODULE -- USCTPCE - SECURITY PROCESSOR,C01370000 
INITIAL ENTRY POINT’ 01380000 
HEHEHE IEEE HE FETE FEE IEEE EE IE DE DEE EDIE DEDEDE FE HEE IED HE JEDE TE HE HEDE HE FE HEE TE HEHEHE FEDE HE HE DE DEBE JE IEE DEDEDE EIEN 01390000 
* | % 01400000 
% PROCESSOR NAME -- USCTPCE % 01410000 
% % 01420000 
% DESCRIPTIVE NAME -- USER SECURITY PROCESSOR % 01430000 
3% %* 01440000 
% FUNCTION -- MANAGE THE INSTALLATION SECURITY SAF CALLS BY PASSING % 01450000 
% A REQUEST TO THE SECURITY PROCESSOR'S SECURITY * 01460000 
x SUBTASK TO ISSUE THE SAF CALL. * 01470000 
% % 01480000 
%* NOTES -- BECAUSE A JES2 PROCESSOR IS NOT ALLOWED TO DIRECTLY * 01490000 
* ISSUE AN OS WAIT, USCTPCE ATTACHES A SUB-TASK TO %* 01500000 
* PERFORM THOSE FUNCTIONS REQUIRING WAITS. THE SUB-TASK,* 01510000 
% USCTDTE, PERFORMS THE CALL TO THE SECURITY * 01520000 
* AUTHORIZATION FACILITY (SAF). * 01530000 
% . * 01540000 
%* * 01550000 
% REGISTER CONVENTIONS -- RO - R2 -- WORK REGISTERS %* 01560000 
* R3 -- ADDRESS OF $DTE * 01570000 
% RG -- ADDRESS OF WORK ELEMENT %* 01580000 
% R5 - RY -- WORK REGISTERS * 01590000 
%* R10 -- ADDRESS OF $UCT * 01600000 
* R11 -- ADDRESS OF $HCT %* 01610000 
* R12 -- BASE ADDRESSABILITY * 01620000 
* R13 -- ADDRESS OF PCE * 01630000 
% R14 -~- LINKAGE REGISTER * 01640000 
* R15 -- LINKAGE REGISTER * 01650000 
% * 01660000 
HEHE IEICE IEE HEE FEE IE IE FE IE HE FE FE FE IE HEE FE JE IE IE FE IE IE FE IE DE IE FE JE FEE FE IE FEE FE HE FE IE FE IE FE FE IE IE IE IE FE FE IEE HE FE EIE FE EEE EEE IEIENEVWE 01670000 
EJECT . 01680000 
HEFCE IE IEE IE HE EE HEE IE IEEE IEIE HE HE ETE IE HE DEE TE IE HE JE FE DE HEE EE FEE FE JE IE IE DE IE FE JE HE IE HE IE HE IE IE TE HE IE HE FE HE EH HEHEHE HH HHH 01690000 
% * 01700000 
* USCTPCE INITAL ENTRY POINT * 01710000 
x * 01720000 
HEHE IEE HE HEHE FE FEE IE FEE IEE HEE EEE EEE DE DEE EE HE EEE EE FEE FEE HE HE FEE IE HEHE JE IE FE HEE HE JE DE JE DE IEEE IE IEIEIEIEINE INE 01730000 
SPACE 2 01740000 
USING UCT,R10 ESTABLISH UCT ADDRESSABILITY 01750000 
SPACE 1 01760000 
USCTPCE SENTRY BASE=R12 PROVIDE PROCESSOR ENTRY POINT 01770000 
SPACE 1 01780000 
L R10 ,$UCT OBTAIN THE UCT ADDRESS 01790000 
EJECT 01800000 
HHH IE HEHEHE HEHEHE HEE IE IEE IEE TE EEE IEE HEE HE IEEE IEEE IEE HEHE HEE ENE ENE EE HE HEHE HEHEHE HE EE HEHE IE HEE IE ENE IE IEE IENEINEN_INXW 01810000 
% % 01820000 
* MAIN LOOP OF THE SECURITY PROCESSOR. * 01830000 
% * 01840000 
HEHEHE HEHE IE HEHE HEE IEEE DE EE DE IE HEE DEE TE JE HEHE FE JE FE FE HE FE IEEE JE FE IEE IE HE IE FEE HE DE TEE IE HE IE JE IE FE HE FE IE IE IE IEIEIE IE I_VIETIOIEII_VW 01850000 
SPACE 1 01860000 
USCTYLOP $ACTIVE INDICATE PROCESSOR ACTIVE 01870000 
ICM R3,B'1111',SCYDTEAD SUBTASK ATTACHED... 01880000 
BZ USCATACH NO, GO ATTACH IT 01890000 
T™ DTEFLAG1-DTE(R3),DTELACTV SUBTASK ACTIVE... 01900000 
BO USCTEST YES, GO QUEUE UP MEMBER 01910000 
SPACE 1 01920000 
FEI IE IE FE HEE IE IE HEHE IEE HEHE EEE FEE HE IEE EEE FEE FEE DE HEHEHE EE HEE JE HE IEE HE FE TE HE FE TEE FEE HE DE DEFE JE HE TEEPE EEE EEE HETEHNEIHENWE. 01930000 
¥ %* 01940000 
* DETACH THE SECURITY SUBTASK (ABENDED ) * 01950000 
% * 01960000 
FEE IEE HE IEE IE HEHE HEHE EE HE HEHEHE EE EE DE HE FEE EEE HEHEHE HEHE HEHE FE HEE JE EEE HE DE IE HEE IEDC TE HEHE IEE IE EEE EEE HEHEHE HEIN HHNHH 01970000 
SPACE 1 01980000 
SDTEDYN DETACH,ID=UDTESCTY ,DTE=(R3 ) ,sWAIT=XECB C01990000 
DETACH ABENDED SUB-TASK 02000000 
xC SCYDTEAD ,SCYDTEAD CLEAR DTE ADDR 02010000 
EJECT 02020000 
HEHEHE HE IEE HE IEEE IE FETE DE FE IE HE DEE DEE DEE IE EEN TEN JE DE HE IEE FE HE JE HE TE ETE FE FE DE DEIE FE DEE HE HE DE HEE FE DEE FEE HETEIEHE IEEE 02030000 
* * 02040000 
% (RE J-ATTACH THE SECURITY SUBTASK % 02050000 
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{ * 02060000 
q HHH HEHE HEHEHE IE HEHE HEE EEE HEHEHE FE FETE HEHE FEE EE FE HEE DE HE HEE HEE TEEPE EET E FE EE FE FEE HEE E EE HEHE EE HE EE HH HHHHHKHHN OZ2070000 


SPACE 1 02080000 

USCATACH $DTEDYN ATTACH, ID=UDTESCTY ,»WAIT=XECB,ERRET=USCATERR 02090000 
ATTACH USCTDTE 02100000 

ST R1,SCYDTEAD STORE SUBTASK DTE ADDRESS 02110000 

MVC XECBECB-XECB+DTEIXECB-DTE( ,R1),$ZEROS CLEAR C02120000 
COMMUNICATION ECB 02130000 

LR ~—s- R35R1 SET THE SUBTASK DTE ADDRESS 02140000 

ST —_ R11,SCDHCT(,R3) STORE HCT ADDRESS IN DTE XTNSN 2SA_ 02140000 

HEHEHE HE FHEFE FE HE FE FHE FE DHE FE HEE JE JEDE FE EE HEHE FE FE FETE DHE EEE FE DEDEDE FETE HE HEE FE FE JE FE HE JE HEHE JE FETE HE FE HE DE JEJE JE FE JEJE JE DHE EDC IEE HE 02160000 
x * 02170000 
x DETERMINE IF THERE IS WORK TO BE DONE * 02180000 
x * 02190000 
JEHE HH JEIHE HE FEE HE FEE FEE JE DEDEDE DE JHE FEE HE JE JE FETE FE HE FE FEDE HE HE DE DE JE HE FEE JEJE HE HE JE DHE DE FE HE FE DE JE FETE FE HE FEE FE FE FEE JE JE DE ETE ETE TE 02200000 
SPACE 1 02150000 

USCTEST ICM  R4,B'1111',UCTSYQUE ANY WORK TO DO... 02220000 
BNZ USCWORK YES, GO DO IT 02230000 

SPACE 1 02240000 

$DORMANT INDICATE THAT PROCESSOR COMPLETE 02250000 

SPACE 1 02270000 

SWAIT SCTY,INHIBIT=NO WAIT FOR WORK 02280000 

B USCTYLOP GO CHECK FOR WORK TO DO 02290000 

EJECT 02300000 

HE HH IEE IEE HE JE HEHEHE FE FEE IEE HEHE JE IE IE IEE FETE IEC IE JE IE IE IE JE FEE HE FE HE EEE IE IE JE IE DE HE FE FE FEE HE FEE FE HE WE FE EE HEHE HH HHMHKHHHH OZ3510000 
% * 02320000 
x SETUP FOR SUB-TASK TO PROCESS JOB * 02330000 
* * 02340000 
% INSTALLATION CODE WOULD GO HERE TO PASS TO SUBTASK THE NECESSARY * 02350000 
% INFORMATION (THROUGH THE DTE EXTENSION THAT IS UNIQUE FOR THE * 02360000 
* SECURITY SUBTASK). * 02370000 
x * 02380000 
KIKI HEHE HIE IE HEHEHE HEE IEE FEE IEE HEE EEE JE FEE IE HE JE EE IE IEE IE FHE ETE FEE EE HEE HEE HEE FEE FE FE FE HE FE FEE EE HEHE HEH HEH HHMHH 02390000 
SPACE 1 02400000 

USCWORK DS OH 02410000 


XC UCTSY QUE ,UCTSYQUE INDICATE WORK BEING PROCESSED (IN C02420000 
REALITY THIS WOULD PROBABLY UNCHAIN C02430000 
THE. REQUEST, NOT CLEAR THE QUEUE ) 02440000 


EJECT 02450000 

HHH IEEE IEE HEHEHE IEEE IEEE IEE HEHEHE IEEE EEE IEEE IEEE HEE EE EEE EEE IEEE HEHE HEHEHE HEHE HEHE HEHEHE HHH HH HHH 02460000 
* * 02470000 
x MVS POST THE SUBTASK FOR WORK TO DO AND SWAIT FOR IT TO * 02480000 
* COMPLETE. NOTE THAT THE CALL TO THE SUBTASK IS $TRACE'D, * 02490000 
* IF TRACING IS ACTIVE. * 02500000 
x * 02510000 
HEHEHE HEHEHE PE HEHEHE IEEE EEE IEE IEE HEE HEE HE DEE IEEE IE IE IE IE FE DEDEDE IE HE HEPE DEE HEIEIEHE EE HEHEHE HEIHEHEIHNHHNHH 02520000 
SPACE 1 02530000 

MVC XECBECB-XECB+DTEIXECB-DTE( ,R3),$SZEROS CLEAR ECB C02540000 

FOR $WAIT 02550000 

LA R1,DTEWECB-DTE(,R3) POINT TO THE WORK ECB 02560000 

SPACE 1 02570000 

POST (1) POST SECURITY SUBTASK FOR WORK 02580000 

SPACE 1 02590000 

STRACE ID=255,LEN=USCSAFML ,OFF=USCTROFF »NAME=SAFCALL 02600000 

MVC Q(USCSAFML,R1),USCSAFM SET INFORMATION TO BE TRACED 02610000 

SPACE 1 02620000 

USCTROFF LR R1,R3 GET DTE ADDRESS 02630000 
SWAIT OPER,XECB=DTEIXECB-DTE(,R1) SWAIT FOR SUB-TASK C02640000 

TO POST US | 02650000 

EJECT 02660000 

HII HIE HEHEHE HEHEHE HEHEHE DE IE EEE ETE IE IEE TEE IEE EE EE HEE DE HEE FE FEE IEIE IEEE HE HEEL HEHEHE HEHEHE HEHE IH HEHIHEIHIHHKH 02670000 
x* * 02680000 
% SUBTASK HAS POSTED US BACK * 02690000 
* * 02700000 
% INSTALLATION CODE WOULD GO HERE TO VALIDATE THE SUCCESS OF THE * 02710000 
* SECURITY CALL AND TO DO ANY PROCESSING RELEVANT TO THE SUCCESS * 02720000 
* OR FAILURE OF THE CALL. * 02730000 
( * * 02740000 
K HH HHH HHH HHH IEEE IEEE EEE HEHEHE HEHEHE IEE IEEE EEE EEE EHH HEHEHE HEHEHE HEHEHE HEHEHE THEIIIEHIE 02750000 
SPACE 1 02760000 

DS OH VALIDATE THE RESULT OF THE SECURITY C02770000 

CALL. 02780000 
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SPACE 
HEHE HEHE IE HEHE HEHE HE HEHEHE HEHEHE HEHEHE HEHEHE HEHEHE HEHEHE ETI IERIE BEEBE 
x % 
% BRANCH TO OBTAIN THE NEXT ITEM TO VERIFY  * 
x * 
HEHEHE HEH HEHEHE HEHEHE HEHE HEE IE HE EIEN IE HEHE HEHEHE HEE HEHE HEHEHE HEE HEHE HEHE HEHEHE HEHEHE HEHE HEHEHE IE HEHEHE HEE HEE HEHEHE HEE EIDE 

SPACE 1 

B USCTEST GO CHECK FOR MORE WORK 

EJECT 
FEREIEIEHE IEE IE IEEE IEEE BE BERBER BREE 
x % 
% AN ERROR WAS ENCOUNTERED ON THE ATTACH OF THE SUBTASK. % 
% WAIT FOR 30 SECONDS AND ATTEMPT TO TRY AGAIN. % 
% % 
HHH HEHEHE HEHEHE IEEE HIE IEEE EEE IERIE EDEL DEDEDE IEEE DEDEIEIEBEE EEE EEE IER IEEIEIE 

SPACE 1 
USCATERR LA R1 ,SCYTQE GET ADDRESS OF PCE TQE 

LA RO ,30 SET TIME INTERVAL 

ST RO, TQETIME( ,R1) IN TQE 


R13 ,TQEPCE( ,R1 ) 
SSTIMER (R1) 


STORE PCE ADDRESS IN TQ@E 
CHAIN THIS TQE 


SWAIT WORK AND WAIT FOR INTERVAL TO ELAPSE 

B USCATACH GO ATTACH SUBTASK 

SPACE 1 
3383388038080 ONE RBURB BUREN OEREEBEE BB BRO RE BUBB EBON HRENERREEE 
x % 
% LIST LITERALS AND SUSPEND ADDRESSABILITIES. E 3 
x x 
HHH HEHEHE HEHEHE HEHEHE IESE EEE IEEE DEE EEE HEPEDEIE HEED IEEE DEDEDE DEDEDE IEE DEDEDE DEDEDE DEDEDE ETE DEBE EEE HEHE FEI EEE 

SPACE 1 

LTORG 

SPACE 1 


DROP R10,R12,R13 SUSPEND UCT, BASE, AND PCE ADDRESS 
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02790000 
02800000 
02810000 
02820000 
02830000 


02840000 


02850000 
02860000 
02870000 
02880000 
02890000 
02900000 
02910000 
02920000 
02930000 
02940000 
02950000 
02960000 
02970000 
02980000 
02990000 
03000000 
03010000 
03020000 
03030000 
03040000 
03050000 
03060000 
03070000 
03080000 
03090000 
03100000 
03110000 


an 


=I 


Lie 
fiU® 


USCTDTE - Security Subtask, Initial Entry Point 


TITLE 


"USER EXTENSION MODULE -- USCTDTE 


NITIAL ENTRY POINT" 


HEFCE IE HE FE DE EE JE JE HEE HE HEE IE FE FE DEE HE HE JE HE DE HE HE FE HE HE JE DE DE HE TE HE DEBE HE JE HE JE TE HE DE DE FE DE BE HE JE TEE DE FE HEHE DE HE FE HEE DE HE HE HEE HEE HE 


* K K OK K OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK 


¥* 


USCTDTE - USER SECURITY SUBTASK 


FUNCTION: 


THIS IS AN EXAMPLE OF A USER CODED SECURITY SUBTASK. THIS 
SUBTASK IS DEFINED BY THE USERDTET DTE TABLE. THIS SUBTASK 
IS ATTACHED BY THE USCTPCE SECURITY PROCESSOR. THE 

PURPOSE OF THIS SUBTASK IS TO CODE THE SAF CALL TO VERIFY 
THE ELEMENT THAT WAS PASSED TO IT FROM THE SECURITY 
PROCESSOR. 


LINKAGE : 


CONTROL GIVEN BY MVS VIA AN ATTACH MVS CALL. 


ENVIRONMENT : 


JES2 SUBTASK 


RECOVERY : 


MVS ESTAE ESTABLISH UPON ENTRY. 
PROVIDED BY THE $STABEND ROUTINE 


REGISTER USAGE (ENTRY/EXIT ): 


REG 


RO 
R1 


R2-R14¢ 


R15 


VALUE ON ENTRY 


N/A 

DTE ADDRESS AS SPECIFIED 
ON THE ATTACH CALL 

N/A 

ENTRY ADDRESS 


PARAMETER LIST: 


THE RECOVERY ROUTINE IS 
LOCATED IN HASPRAS. 


VALUE ON EXIT 
UNPREDICTABLE 
UNPREDICTABLE 


UNPREDICTABLE 
UNPREDICTABLE 


ALL NECESSARY INFORMATION LOCATED IN THE DTE, AS PASSED 
BY THE ATTACHING PROCESSOR. 


REGISTER USAGE CINTERNAL ): 


REG 


RO-R10 


R1l 
R12 
R13 
R14 
R15 


VALUE 


WORK REGISTERS 

HCT BASE ADDRESS 
LOCAL BASE ADDRESS 
DTE BASE ADDRESS 
LINK/WORK REGISTER 
LINK/WORK REGISTER 


RETURN CODES (R15 ON EXIT): 


N/A 


OTHER CONSIDERATIONS: 


N/A 


HHH HEH HEHEHE HEHEHE HEE HEHEHE HAE HEHEHE HEHEHE HEHEHE HEE HEHEHE IESE IE HEE IE HEHE HEHEHE HEHEHE HEHEHE HEE SE HE HEIE HEHE HEE HEHEHE HEE 
SPACE 1 


USCTDTE 


USING HCT,R11 
USING DTE,R13 


SPACE 1 


SENTRY BASE=R12 
LR 
LR 


R12,R15 
R13,R1 


ESTABLISH HCT ADDRESSABILITY 
ESTABLISH DTE ADDRESSABILITY 


USER SECURITY SUB-TASK 


SET LOCAL BASE 
SET DTE BASE 
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- SECURITY SUBTASK, IC03120000 


03130000 
03140000 
03150000 
03160000 
03170000 
03180000 
03190000 
03200000 
03210000 
03220000 
03230000 
03240000 
03250000 
03260000 
03270000 
03280000 
03290000 
03300000 
03310000 
03320000 
03330000 
03340000 
03350000 
03360000 
03370000 
03380000 
03390000 
03400000 
03410000 
03420000 
03430000 
03440000 
03450000 
03460000 
03470000 
03480000 
03490000 
03500000 
03510000 
03520000 
03530000 
03540000 
03550000 
03560000 
03570000 
03580000 
03590000 
03600000 
03610000 
03620000 
03630000 
03640000 
03650000 
03660000 
03670000 
03680000 
03690000 
03700000 
03710000 
03720000 
03730000 
03740000 
03750000 
03760000 
03770000 
03780000 
03790000 
03800000 
03810000 
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L R11,SCDHCT SET HCT BASE ®SA 03810000 
38832808828 E BUBB BEBUEB RGB NEGEG UBB EN EHUB REGU EBBEBHBEGHEEGHGHIEHRHEGIGE 03850000 
%* ®BDB 03820000 
XUSCXA S$AMODE 31,RELATED=(USC37) FORCE 31-BIT MODE FOR UDTESCTY 03830000 
* — @BDB 03820000 
* REMOVED THE $AMODE BECAUSE THE $MODULE ENVIRONMENT IS JES2. ®BDB 03820000 
%* THIS CAUSES THE EXPANSION TO GENERATE A CONSTANT $HIBITON 2BDB 03820000 
* WHICH RESIDES IN THE HCT. SINCE WE DON'T AUTOMATICALLY 2BDB 03820000 
* HAVE ADDRESSABILITY TO THE HCT IN A SUBTASK WE ABEND IN ®BDB 03820000 
* EXECUTION. @BDB 03820000 
* THIS IS NOT A PROBLEM IF THIS ROUTINE IS COPIED INTO ITS ®2BDB 03820000 
* OWN MODULE AND THEN CODE THE $MODULE WITH ENVIRON=SUBTASK. @®BDB 03820000 
% ®2BDB 03820000 
388283 BEERBBGORBIEEGGBEGUB GEO BEGUEGR EGBG ERGO EGUBIE UBB BBB EH BING HEGUBHGHGHGEE 03850000 
USCXA LA R15,USCXAOL1 PSEUDO $AMODE $AMODE oBDB 03830000 

0 R15 ,HIGHON SET HI BIT ON $AMODE d2BDB 

BSM RO,R15 SET MODE S$AMODE oBDB 
HIGHON DC OF'O' ,X'80000000' MASK FOR 31 BIT MODE $AMODE oBDB 
USCXAO1 DS OH RESUME S$AMODE oBDB 

SPACE 1 03840000 
* * 03860000 
* SET THE RETRY ROUTINE, THE CLEAN-UP ROUTINE, AND THE * 03870000 
* VRA EXIT ROUTINE ADDRESSES. * 03880000 
* * 03890000 
% INSTALLATION SHOULD SET THE DTERTXAD, DTEESXAD, AND DTEVRXAD * 03900000 
% FOR THE RETRY ROUTINE ADDRESS, THE CLEAN-UP ROUTINE ADDRESS * 03910000 
* AND THE VRA EXIT ROUTINE ADDRESS RESPECTIVELY, IF THESE * 03920000 
%* ROUTINES ARE NEEDED. * 03930000 
* * 03940000 

SPACE 1 03960000 

L R2,SSTABNDA GET SUBTASK ESTAE RTN ADDRESS 03970000 

LR R3 R13 COPY DTE ADDRESS 03980000 

EJECT 03990000 
* * 04010000 
* ESTABLISH ESTAE ENVIRONMENT * 04020000 
*% * 04030000 

SPACE 1 04050000 

MVC DTEAWRKA(USCSTLN),USCABND MOVE ESTAE PARM LIST 04060000 

SPACE 1 04070000 

ESTAE (2),PARAM=(3),RECORD=YES »MF=(E ,DTEAWRKA } C04080000 

ESTABLISH RECOVERY ENVIRONMENT 04090000 

SPACE 1 04100000 

or DTEFLAG1,DTELACTV SHOW SUBTASK ACTIVE 04110000 
% 04120000 
% INSTALLATION SHOULD INITIALIZE THE DTE EXTENSION FOR THE SUBTASK 04130000 
%* HERE 04140000 
* 04150000 
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USCTDTE - Security Subtask, Main Processing 


TITLE ‘USER EXTENSION MODULE -- 


AIN PROCESSING ' 

3382882888088 ERB R883 BRBEBRE BEEBE BREE ERB EER ARERR 
x cd 
* NOTIFY PROCESSOR THAT WORK NEEDED AND WAIT FOR A RESPONSE * 
x % 
J2RR2R2BREVENRERERB BERBER BBB BRB R38 RE BRB EBB BEBE BERBER BERBERA 

SPACE 1 
USCPOST XC DTEWECB , DTEWECB CLEAR WORK ECB 

SPACE 1 

POST DTEIXECB POST PROCESSOR FOR WORK 

SPACE 1 

™ DTEFLAG1,DTE1TERM #SUBTASK SHUTDOWN REQUESTED... 

BO USCRET YES, EXIT TO DELETE SECURITY SUBT 

SPACE 1 

WAIT ECB=DTEWECB ELSE WAIT FOR WORK TO DO 

SPACE 1 

™ DTEFLAG1,DTE1TERM  SUBTASK SHUTDOWN REQUESTED... 

BO USCRET YES, EXIT TO DELETE SECURITY SUBT 

EJECT 
HEHEHE HEHE HEHE HEHE HEHEHE HEHEHE HOPE HE HEHEHE HIE HEHEHE HEHEHE HEHE HEHEHE HEHE HEHE HEPESE HEHEHE HEE HEHEHE HEE HHI 
% @BDB 
% ISSUE A MVS WTO TO INDICATE THAT THE SUBTASK IS @BDB 
% EXECUTING. @BDB 
% @BDB 
JBBBROUBEB8R0E BBE E8888 88888888888 BBE BUBB BREESE EE UEEEHHE 

SPACE 1 7 

LA R1,USMSG901 aBDB 

WTO MF=(E,(1)) oBDB 

SPACE 1 
HEHEHE HIE HEHE HEHE IE HEHEHE HEHEHE HEHEHE HEHEHE HEHE PEE HEHEHE HEHEHE DEE HEHE HEHEHE HEHE HEHEHE HEHEHE EPL HEHEHE III 
x * 
as GO POST THE PROCESSOR FOR WORK * 
* * 
HHI III IIIS III IIR IGOR IBOHIIIGGGOIIOE 

SPACE 1 

B USCPOST GO POST PROCESSOR FOR WORK 
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- SECURITY SUBTASK, MC04160000 


04170000 
04180000 
04190000 
04200000 
04210000 
04220000 
04230000 
04240000 
04250000 
04260000 
04270000 
04280000 
04290000 
04300000 
04310000 
04320000 
04330000 
04340000 
04350000 
04740000 
04730000 
04730000 
04730000 
04730000 
04740000 
04410000 


04420000 
04430000 
04440000 
04450000 
04460000 
04470000 
04480000 
04490000 
04500000 
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USCTDTE - Security Subtask, Termination 


TITLE ‘USER EXTENSION MODULE -- ~ SECURITY SUBTASK;, TC04510000 
ERMINATION' 04520000 
JEIEIEIE HE IEHE IEE IEE EWE IEE IE TE HE IEEE IEE IEEE EEE IEE IEEE IED IEE DEDEDE IEEE IEIEIEIEIEIEIEIIEIHOIONIOIOEHEHEHEE 04530000 
* | * 04540000 
% TERMINATE SECURITY SUBTASK * 04550000 
% * 04560000 
% NOTE THAT THE MAIN TASK TERMINATION CODE WAITS 30 SECONDS %* 04570000 
% FOR THE SUBTASK TO GO AWAY BEFORE CONTINUING. IF THE MAIN % 04580000 
* TASK COMPLETES TERMINATION BEFORE THE SUBTASK DOES (DUE TO %* 04590000 
* DEBUG TRACING IN THE SUBTASK), AN A0O3 ABEND WILL RESULT. * 04600000 
* * 04610000 
JBOE8B2BOE8 BURR RB BURR IREB8 BUBB B BUH B BUH RO OU ROUHRCROREEEEEEHE 04620000 
SPACE 1. 04630000 
USCRET DS OH | 04640000 
USC37 SAMODE 24,RELATED=(USCXA) AMODE 24 FOR SECURITY TERMINATION 04650000 
SPACE 1 04660000 
ESTAE 0 CANCEL ESTAE 04670000 
SVC 3 THEN RETURN TO SYSTEM 04680000 
EJECT 04690000 
HEHEHE EHC HE IEE IE IEE IEE HEE IE IE IEE DEDEDE IEEE EH IEEE IE DE IE HEHEHE IEE IE IE IE IE IE IE IE IE IE IE IEIEIHEIEIEIEIENEIOIEIVIOIVOIEHEEEE 04700000 
x —* 04710000 
* CREATE THE ESTAE PARAMETER LIST AND TRACED INFORMATION * 04720000 
* | * 04730000 
HICH HEHEHE HEIEIE IEE IEE HEE IEEE IEEE EEE IEE IEE IEE IEICE IESE EFC IEEE IEEE IEE IE IEE IEEE IEEIEIEIENEIOICOIEIEIEIOIIIEIEIEEE 04740000 
SPACE 1 04750000 
USCABND ESTAE ,CT,PURGE=NONE »,ASYNCH=YES, TERM=NO,MF=L | 04760000 
USCSTLN EQU *—-USC ABND LENGTH OF ESTAE PARAMETER LIST 04770000 
SPACE 1 04780000 
USCSAFM DC C'THIS IS TRACE DATA THAT SHOULD BE FILLED IN FOR INSTALC04790000 
LATION USE IN TRACING SECURITY CALLS' 04800000 
USCSAFML EQU %*-USCSAFM 04810000 
SPACE 1 04820000 
$MID 901 @aBDB 
USMSG901 WTO "&SMID. SECURITY SUBTASK INVOKED’, ®BDBC 
MF=L ,ROUTCDE=10 ,DESC=6 ®BDB 
SPACE 1 04820000 
DROP R13 DROP DTE ADDRESSABILITY 04830000 
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Nige 


( | TROUT255 - Tracing Routine for SAF Call 


TITLE 'USER EXTENSION MODULE -- TROUT255 - TRACING ROUTINE FORC04840000 


SAFCALL ID=255' 04850000 
HEHEHE IEEE HEE EEE IEE IEEE IEEE IE EEE EEE HEHEHE IE HEHE IEEE IEE HEE FE HEE EDEN IEEE JE IE FE IE FE FE EEE IE IEE NE IEIEIN_ION_ZE 04860000 
a * 04870000 
* TROUT255 - TRACING ROUTINE IN SUPPORT OF THE TRACE ID 255. * 04880000 
% * 04890000 
%* FUNCTION: * 04900000 
* * 04910000 
* THIS ROUTINE WILL BE CALLED TO FORMAT THE TRACE RECORD FOR * 04920000 
* THE INSTALLATION TRACE ID 255. THIS ROUTINE SHOULD BE * 04930000 
% ALTERED BY THE INSTALLATION TO FORMAT THE INFORMATION THAT * 04940000 
% WAS SAVED ON THE TRACING OF THIS ID. * 04950000 
* * 04960000 
% LINKAGE: * 04970000 
x% * 04980000 
* BALR R14,15 TO BY HASPMISC * 04990000 
% % 05000000 
% ENVIRONMENT : * 05010000 
* * 05020000 
% THIS ENVIRONMENT IS CALL FROM THE JES2 MAIN TASK. * 05030000 
x * 05040000 
* RECOVERY: * 05050000 
* * 05060000 
* NONE * 05070000 
* * 05080000 
* REGISTER USAGE (CENTRY/EXIT): * 05090000 
* * 05100000 
* REG VALUE ON ENTRY VALUE ON EXIT * 05110000 
* * 05120000 
* RO N/A UNCHANGED * 05130000 
* Rl TRACE TABLE BUFFER ADDR UNCHANGED * 05140000 
* R2 TRACE TABLE ENTRY (TTE) UNCHANGED * 05150000 
* R3 N/A UNCHANGED * 05160000 
* RG TRACE ID TABLE ENTRY UNCHANGED * 05170000 
* R5 POINTER TO REMAINING OUT- POINTER TO LOCATION IN OUT- * 05180000 
* PUT AREA IN PRINT RECORD PUT AREA AFTER THIS ENTRY * 05190000 
* R6-R10 N/A | UNCHANGED * 05200000 
% R11 HCT BASE ADDRESS UNCHANGED * 05210000 
% R12 N/A UNCHANGED * 05220000 
x R13 PCE BASE ADDRESS UNCHANGED * 05230000 
* R14 RETURN ADDRESS UNCHANGED * 05240000 
* R15 ENTRY ADDRESS 0 * 05250000 
* * 05260000 
%* PARAMETER LIST: * 05270000 
x * 05280000 
* NONE * 05290000 
* * 05300000 
%* REGISTER USAGE CINTERNAL ): * 05310000 
* * 05320000 
* REG VALUE * 05330000 
* * 05340000 
*% RO-R1 WORK REGISTERS * 05350000 
* R2 TTE ADDRESS | * 05360000 
* R3 LOCATION IN TTE * 05370000 
* RG WORK REGISTER * 05380000 
* R5 LOCATION IN OUTPUT AREA * 05390000 
* R6-R8 WORK REGISTER * 05400000 
* RI 3% RESERVED 2% * 05410000 
* R10 WORK REGISTER * 05420000 
* R11 HCT BASE ADDRESS * 05430000 
*% R12 LOCAL BASE ADDRESS * 05440000 
x R13 PCE BASE ADDRESS * 05450000 
% R14 LINK/WORK REGISTER * 05460000 
% R15 LINK/WORK REGISTER * 05470000 
* * 05480000 
%* RETURN CODES (R15 ON EXIT): * 05490000 
% * 05500000 
% 0 - PROCESSING SUCCESSFUL (NO ERRORS) * 05510000 
% * 05520000 
* OTHER CONSIDERATIONS: * 05530000 
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% 
% 
* 


3 
MUST RETURN THE NEW VALUE OF R5 ON EXIT (I.E., SSTORE (R5)) x 
% 
HEHEHE HE HEHE FETE HE HE HE HE HE HE HE HE HEHEHE HEHE HEHE DE TE HE HEHEHE HE TE HE HE HE TE HE HE HE HE IE IE TE HE HE HE FE BE HE HE FE DE HE HE FEE BEDE TE HE HE HE HE DE DE HE HE HE FETE HETE 
SPACE 1 
USING TTE »R2 ESTABLISH TTE ADDRESSABILITY 
USING PCE ,R13 ESTABLISH PCE ADDRESSABILITY 
SPACE 1 
TROUT255 SENTRY BASE=R12 ID=255 TRACE FORMATOR ROUTINE 
SSAVE NAME=TROUT255,TRACE=NO SAVE CALLERS REGISTERS 
LR R12,R15 ESTABLISH BASE ADDRESS 
SPACE 1 
LA R3,TTEDATA POINT TO THE TTE DATA 
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MVC O(USCSAFML,R5),0(R3) SET THE TRACED INFO IN OUTPUT AREA 


LA RO ,USCSAFML( ,R5) POINT BEYOND INFORMATION 

SL RO, TLGBSAVE AND FIND LENGTH OF PRINT LINE 

L R15,$STRCPUT GET TRCPUT ROUTINE ADDRESS AND oBDB 
SCALL (R15) GO PRINT THE LINE aJK 
SSTORE (R5) INSURE NEW BUFFER IS PASSED BACK 
SPACE 1 

SRETURN TRACE=NO RETURN TO CALLER 

SPACE 1 

DROP R2,R12,R13 SUSPEND TTE, LOCAL, AND PCE ADDRESS 


A GUIDE User Group Presentation 


05540000 
05550000 
05560000 
05570000 
05580000 
05590000 
05600000 
05610000 
05620000 
05630000 
05640000 
05650000 
05660000 
05670000 
05680000 
05690000 


05700000 
05710000 
05720000 
05730000 
05740000 
05750000 


WSTRKGRP - Work Selection Routine 


"USER EXTENSION MODULE ~- WSTRKGRP - WORK SELECTION ROUTCO5760000 


TITLE 


INE FOR TRKGRP CRITERIA’ 


JEIE HE HE IEIE HE HE DE FE FE HE FETE FE HE IE HE IEE DEE HE DE FE DE DE FE DE DE JE HE FE FE FE DE HEE TEBE DE HE DE HE TE HE FE HE HE TEBE HE FE FE HE DE HE HE EDE FE HE HE HE HE HEHEHE PEE HE 


* KK K K K OK K OK K OK OK OK OK OK OK OK OK OK OK K OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK ORK OK OK 


WSTRKGRP - WORK SELECTION ROUTINE TO COMPARE THE DCT'S 
AND JQE'S NUMBER OF TRACK GROUPS. 


FUNCTION: 


THIS ROUTINE WILL BE CALLED TO INSURE THAT THE JOB'S NUMBER 
OF TRACK GROUPS IS EQUAL TO OR BEYOND THE DCT'S THRESHOLD. 


LINKAGE : 


BALR R14,15 TO BY HASPSERV 


ENVIRONMENT : 
THIS ENVIRONMENT IS CALL FROM THE JES2 MAIN TASK. 
RECOVERY : 


NONE 


REG 


R14 
R15 


NONE 


REG 


REGISTER USAGE (ENTRY/EXIT ): 


VALUE ON ENTRY 


N/A 

N/A 

ADDR OF CRITERION BEING 
PROCESSED 

N/A 

N/A 

COMPARISON LENGTH 

ADDR OF DEVICE FIELD 

N/A 

ADDR OF COMPARISON FIELD 
HCT BASE ADDRESS 

N/A 

PCE BASE ADDRESS 

RETURN ADDRESS 

ENTRY ADDRESS 


PARAMETER LIST: 


REGISTER USAGE CINTERNAL ): 


VALUE 


N/A 

ADDR OF JQE 

ADDR OF CRITERION BEING 
PROCESSED 

N/A 

N/A 

COMPARISON LENGTH 

ADDR OF DEVICE FIELD 

N/A 

ADDR OF COMPARISON FIELD 
HCT BASE ADDRESS 

N/A 

PCE BASE ADDRESS 
LINKAGE REGISTER 
LINKAGE REGISTER 


RETURN CODES (R15 ON EXIT): 


VALUE ON EXIT 


UNCHANGED 
UNPREDICTABLE 


UNCHANGED 
UNCHANGED 
UNPREDICTABLE 
UNPREDICTABLE 
UNCHANGED 
UNCHANGED 
UNCHANGED 
UNCHANGED 
UNCHANGED 
UNCHANGED 
UNCHANGED 
0 
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KK K KK KK K KK KK KK OK OK OK OK OK OK KK OK OK KK K OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OXK 


05770000 
05780000 
05790000 
05800000 
05810000 
05820000 
05830000 
05840000 
05850000 
05860000 
05870000 
05880000 
05890000 
05900000 
05910000 
05920000 
05930000 
05940000 
05950000 
05960000 
05970000 
05980000 
05990000 
06000000 
06010000 
06020000 
06030000 
06040000 
06050000 
06060000 
06070000 
06080000 
06090000 
06100000 
06110000 
06120000 
06130000 
06140000 
06150000 
06160000 
06170000 
06180000 
06190000 
06200000 
06210000 
06220000 
06230000 
06240000 
06250000 
06260000 
06270000 
06280000 
06290000 
06300000 
06310000 
06320000 
06330000 
06340000 
06350000 
06360000 
06370000 
06380000 
06390000 
06400000 
06410000 
06420000 
06430000 
06440000 
06450000 
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%* G4 - CONTINUE CRITERIA PROCESSING, ACCEPTABLE CONDITION % 06460000 
% 12 - UNACCEPTABLE CONDITION, CRITERIA DO NOT MATCH % 06470000 
* % 06480000 
% OTHER CONSIDERATIONS: % 06490000 
* * 06500000 
% SSAVE AND $RETURN NOT USED FOR PERFORMANCE REASONS % 06510000 
* *% 06520000 
SPACE 1 06540000 
ENTRY WSTRKGRP ESTABLISH ENTRY POINT 06550000 
USING WSTRKGRP ,R6 ESTABLISH ADDRESSABILITY 06560000 
USING PCE ,R13 ESTABLISH PCE ADDRESSABILITY 06570000 
SPACE 1 06580000 
WSTRKGRP LR R6»,R15 SET ADDRESSABILITY 06590000 
BCTR R7,0 PREPARE LENGTH FOR EXECUTES 06600000 
LR R15,R10 SET THE JQE FIELD ADDRESS 06610000 
SL R15 ,=A( JQETGNUM-JQE) TO OBTAIN THE JQE ADDRESS 06620000 
LR R1,R10 OBTAIN THE FIELD ADDRESS 06630000 
™ JQEFLAG5-JQE(R15),JQE5XUSD NUM OF TGS IN EXT AREA... 06640000 
BNO. WSTTGN NO, GO DO COMPARISON 06650000 
LH R1,JQETGNUM-JQE(,R15) GET THE OFFSET INTO EXT AREA 06660000 
AL R1,SJQEEXT AND OBTAIN THE ADDRESS OF TGN 06670000 
WSTTGN LA ~~ R15,12 ASSUME TG NUMBER NOT AT THRESHOLD 06680000 
EX R7,WSTCLC TG NUMBER AT THRESHOLD... 06690000 
BLR R14 NO, RETURN INDICATING NO MATCH 06700000 
LA R1554 YES, INDICATE MATCH 06710000 
BR R14 RETURN TO CALLER 06720000 
SPACE 1 06730000 
WSTCLC CLC 0(*-*,R1),0(R8) 3% EXECUTE ONLY 2% 06740000 
SPACE 1 06750000 
DROP R6,R13 SUSPEND LOCAL AND PCE ADDRESSABILITY 06760000 
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Tables 


TITLE "USER EXTENSION MODULE -- USERPCET - TABLE FOR INSTALLATC06770000 


ION SECURITY PROCESSOR’ 06780000 
3626362630909 E BERBER RE RREREEREREEEREE 06790000 
* * 06800000 
% DEFINE THE PROCESSOR TABLE % 06810000 
* %* 06820000 
3833838888888 BURR E NB R BU NEEBR UBER RERUN REUREBNREBRERER8E8RIGREREE 06830000 

SPACE 1 06840000 

USERPCET SPCETAB TABLE=USER 06850000 
SCTYPCET $PCETAB NAME=SCTY ,DESC='SECURITY ' ,MODULE=HASPXJOO , C06860000 
ENTRYPT=UCTMSCTY ,CHAIN=UCTSYPCE ,COUNTS=UCTSYNUM, C06870000 


MACRO=SSCYWORK »WORKLEN=SCYLEN ,GEN=INIT ,DISPTCH=WARM, C06880000 


PCEFLGS=0 , FSS=NO ,PCEID=( 0 ,UPCESCTY ) ,DCTTAB=*-* 
$PCETAB TABLE=END 


06890000 
06900000 


TITLE ‘USER EXTENSION MODULE -- USERDTET - TABLE FOR INSTALLATC06910000 


ION SECURITY SUBTASK' 06920000 

JEFE HEHE FE JE DEDEDE FE JE HE EE HE JEJE JE JE JEJE JE JEJE IE IEE FE IE DE JE IE DE DE JE HE JEJE TE DE JE HE JE HE JE JE DE JE DE FE EE JHE FE DHE IHC FE HE JE JE HE EE HE HEHE FE HEE IE 06930000 
x * 06940000 
x DEFINE THE SUBTASK TABLE * 06950000 
x * 06960000 
FEI HE FETE IE JEJE JE JEJE HE JE FE FE DE JE HE HE DE DE DE JE HE JE EE HE JHE EE DE FE JEJE HE JEJE NE ETE HE JE ME HE JC JEJE FETE HE JE JE DE DE IE DE TE IEDE JEJE ICE EWE TE THE ETE 06970000 
SPACE 1 06980000 

USERDTET $DTETAB TABLE=USER 06990000 
S$DTETAB NAME=SECURITY , ID=UDTESCTY ,EPNAME=USCTDTE 5 Co7000000 
EPLOC=UCTMDSCY , HEAD=UCTSYDTE ,WORKLEN=SCDLEN> C07010000 

GEN=NO ,STAE=NO,SZERO=YES 07020000 

SDTETAB TABLE=END 07030000 


TITLE ‘USER EXTENSION MODULE -- USERTIDT - TABLE FOR INSTALLATCO07040000 


ION TRACE ID TABLE(S)' 07050000 
3332383833288 E RRB ERB RBBB REI B RE BREBR ERE RBHREHRHREE 07060000 
x * 07070000 
% DEFINE THE TRACE ID TABLE * 07080000 
x * 07090000 
3636393383328 B ERE ERRO ENE B ERE BRB BREE BREEN 07100000 

SPACE 1 07110000 
USERTIDT S$TIDTAB TABLE=USER 07120000 
STIDTAB ID=255,FORMAT=TROUT 255 ,NAME=SAFCALL 07130000 
STIDTAB TABLE=END 07140000 


TITLE ‘USER EXTENSION MODULE -- USERSTWT - TABLE FOR INSTALLATC0O7150000 


ION WORK SELECTION CRITERIA’ 07160000 

HEHEHE IEE HEEB IEEE EERE NBEO BENE B BEEBE EUHEEREEE 07170000 
% * 07180000 
% DEFINE THE WORK SELECTION CRITERIA TABLE * 07190000 
% * 07200000 
HEHEHE IE HEHE IEEE IEICE ETE IE IIE EIEIO RE BRUNE BREEN 07210000 
SPACE 1 07220000 

USERSTWT SWSTAB TABLE=USER 07230000 
SWSTAB NAME=TRKGRP ,MINLEN=2 »ALIAS=TG , FLD=JQETGNUM ,CB=J@E ;» C07240000 
DEVFLD=DCTUSERO »DEVCB=DCT ,RTN=NSTRKGRP 07250000 

SWSTAB TABLE=END 07260000 


TITLE "USER EXTENSION MODULE -- USEROSTT - TABLE FOR INSTALLATCO07270000 


ION SCAN TABLE FOR OFFN.STN' 07280000 
HEH HH HHH HIE HEH HEHEHE HEHEHE HEHEHE HEH HIE HEE HEHEHE HEHEHE HEHEHE HEHEHE HEHEHE AETV 07290000 
x * 07300000 
* DEFINE THE OFFLOAD SYSOUT TRANSMITTER OPERAND TABLE % 07310000 
% * 07320000 
HHH HH HEHEHE HEHEHE HEHEHE IEE HEE HEHE EIEIO EEUU HOU EEREEEEREE 07330000 
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SPACE 1 


USEROSTT $SCANTAB TABLE=USER 


TRKGRP 


SSCANTAB NAME=TRKGRP ,MINLEN=2 ,FIELD=( DCTUSERO,2),DSECT=DCT , 
CONV=NUM , RANGE =(0 , 32767 ) ,CB=PARENT ,CALLERS=( S$SCIRPL > 


$SSCIRPLC ,SSCDCMDS , $SCSCMDS ) 


S$SCANTAB NAME=TG ,CONV=ALIAS ,SCANTAB=TRKGRP 


SSCANTAB TABLE=END 
EJECT 


07340000 
07350000 


C07360000 


C07370000 


HEIEFE HE HEE E HE DEE HE FEE HE DE HE TEE DE JE DE TE FE DE HE DE JE HE DE HE DE FE FE DE DE HE SE HE DEE FE DE FE FE HE DE HE FE HE DE HE FE DEDEDE FE TE FE TE FE TE HE DE HE DEBE FE HE FEE FE 


* 
% 
* 


LIST THE LITERALS FOR THE HASPXJOO MODULE. 


> 
* 
* 


HEFEH HEHEHE HEHEHE HEHE FE FEE HEHEHE DE TE HE HEHEHE FE HE FE FE HEHEHE HEHEHE HE DE HEHEHE HEHE HE FE FE HE HE HE TE HE DE DEE HEHE HEE FE HE FE DEHEHE HEHE HE DE DE HE HEHEHE FE 


SPACE 1 
LTORG ; 


TITLE ‘USER EXTENSION MODULE -- EPILOG (SMODEND )' 


SMODEND ; 
APARNUM DC CL7*OZXXXXX" APAR NUMBER 
END > END OF HASPXJ00 
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07380000 


07390000 
07400000 
07410000 
07420000 
07430000 
07440000 
07450000 
07460000 
07470000 


99990000 
99991000 
99999997 
99999999 


A 


alias 101, 104, 115, 134, 140 
Attach 22, 50 


B 


BALR 83 


C 


CALLER 110, 112, 113, 119, 120, 139, 140 
CALLRTM = 52 
CB 46, 8, 9, 11, 89, 92, 93, 94, 96, 102, 104, 
112, 117, 118, 120, 121, 122, 138, 139, 140 
CBIND | 117, 130 
CHAIN 25, 26, 27, 29, 30, 32, 41, 45, 46, 53, 
57, 64, 66, 67 
CHAR 114, 115, 121, 123, 124 
Checkpoint 43, 53, 103 
CJOE 92 
CKPTDEF 9 
CNVT 55 
COLD 9, 107, 119 
control blocks, JES2 
See specific control blocks, such as DTE 
CONVERT _ 53, 54, 55, 57, 58, 59, 115, 121 
Converter subtask 53, 54, 55, 57, 58, 59 


D 


Daughter 1, 48, 49, 51 

DCNVLEN _ 54, 57 

DCT 
DCTDEVN 117 
DCTJOBNM 89, 94, 95 
DCTTAB 29, 31, 40, 45 


Index 


DCTUSERO 102, 103, 104, 105, 134, 135, 
136, 137, 140 
DEBUG 12, 13, 120, 125, 138, 141 
deleting entries 3, 4, 5, 7, 17, 18, 19, 34, 48, 
69, 86, 106, 145 
Detach 22, 50, 58, 65, 66 
DEVCB 89, 94, 96, 103, 104 
DEVFLAG 94 
DEVFLD 89, 94, 96, 102, 104 
Dispatch 20, 21, 25, 26, 34, 35, 42, 43, 45, 46, 
49, 145 
DISPLAY 109, 112, 113, 118, 128 
DISPLEN 110, 133 
DISPOUT 110, 131, 133 
DISPTCH 29, 34, 42, 45 
DTE 
DTExxx 1, 2, 9, 17, 18, 48, 49, 50, 51, 52, 
53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 
64, 65, 66, 67, 68, 111, 147 
DTEESXAD 
DTEIDCNV 
DTENEXT 57 
DTEPREV 57 
DTERTXAD 52 
DTESTID 52 
DTESXAD 52 
DTETAB 71 
DTEVRXAD 52 
DTE Tables 48, 1, 17, 48-68 


E 


ENTRYPT 29, 30, 32, 41, 45, 46, 67 
EPLOC 54, 55, 56, 64, 66 

EPNAME _ 54, 56, 64, 66 

EQU 25, 46, 67 

Equate 25, 33, 42, 44, 45, 46, 55, 57, 63, 65, 
66, 67, 82 

ESTAE 52, 58 

Exit point imi, 3, 4, 5, 145 

Exit 0 10, 38, 39, 47, 61, 62, 68, 78, 84, 99, 
105, 135, 142, 147, 152 


Index 175 


HASPXITO 

HCT JES2 Control Block 32, 33, 57, 83, 92, 
94,117 

HOLD 34 


176 


12, 13 


falling-out-of-the-chair insurance v 
FCB 
field names, JES2 


See JES2 macros and field names 


IDEF 12 
IDENTIFY 56, 64 
INSTBRST 12, 
insurance, falling-out-of-chair 


147 


FSS = 29, 35, 43, 45 


13 


See falling-out-of-the-chair insurance 


IOS 


JES2 control blocks 


See specific control blocks, such as DTE 


JES2 initialization parameters 


See specific parameters, such as JOBDEF 


JOBNUM= 


JES2 labels 


HASPDTET 
HASPEVTL 
HASPIRWT 
HASPJTWT 
HASPMPST 
HASPOPTT 
HASPOSTT 
HASPOSTV 
HASPPCET 
HASPPRWT 
HASPPUWT 
HASPRCTT 
HASPRCVT 
HASPSRWT 
HASPSTWT 
HASPTAB1 
HASPTAB2 
HASPTBLE 
HASPTIDT 


50, 54 
71 
87 


87 

107, 112, 120, 125, 138, 141 
107 

138, 141 

14] 

22,29 

87, 89 

87 

125 

120, 121, 125 


70, 74 


HASPXJ00 38, 39, 40, 41, 45, 46, 47, 61, 
62, 64, 66, 67, 68, 84, 105, 142, 147 


$DCTDYN 


JES2 macros and field names 
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$DCTTAB 31 

$DPCE 30 

$DRSCTY 25, 46 | 

$DRTOTAL 25 

$DRxxxxx 25 

$DTE 51, 52 

$DTEALOC 53 

$DTECKAP 53 

$DTECNVT _ 53, 54, 57 

$DTEDYN _ 50, 54, 57, 58, 61, 65, 66 

$DTEIMAG 53 

$DTEOFF 53 

$DTEORG 57 

$DTESMF 53 

$DTESPOL 53 

$DTETAB 48, 50, 54, 55, 56, 57, 58, 59, 
64, 65, 66 

$DTEVTM 53 

$DTEWTO 53 

$GETABLE 23, 51, 71 

$GETBUF 

$GETMAIN 33, 57, 117 

$GETWORK 

$HASPEQU 25, 82 

$HCT 10, 32, 33, 47, 52, 53, 57, 68, 83, 
84, 105, 127, 131, 142 | 

$JQE 102 

$MCT 9, 10, 22, 29, 38, 47, 50, 54, 61, 68, 
70, 74, 78, 84, 87, 89, 99, 105, 107, 110, 
112, 115, 116, 120, 135, 140, 142, 147 

$MODMAP _ 32, 38, 39, 62 

$MODULE 47, 68, 71, 147 

S$NUMRDRS 29, 33 

$PCE 33, 34, 36, 127, 131 

$PCEDYN 22, 29, 33, 34, 35, 38, 41, 43, 
46 

$PCEORG 32 

$PCETAB 22, 29, 30, 31, 32, 33, 34, .35, 
41, 42, 45, 48, 57 

$POST 20, 21, 25, 34, 46 

$RDRPCE 29, 32 

$RDRWORK 29, 33 

$RETURN § 26, 82 

$SAVE 26, 74, 82 

$SCAN | 1, 2, 17, 102, 106, 107, 108, 109, 
110, 111, 112, 113, 114, 115, 116, 117, 118, 
119, 120, 121, 122, 123, 124, 125, 127, 128, 
129, 130, 131, 132, 133, 134, 135, 136, 137, 
138, 139, 140, 141, 142, 143, 147 | 

$SCANTAB 109, 111, 112, 113, 114, 115, 
116, 117, 118, 119, 121, 122, 123, 124, 130, 
133, 140 

$SCANWA_ 108 

$SCDCMDS | 112, 119, 139, 140 

$SCDOCMD 119 

$SCDWORK 65, 66, 67, 68, 147, 150 
$SCIRPL 112, 119, 139, 140 
$SCIRPLC 112, 119, 139, 140 
$SCOPTS 119 

$SCSCMDS — 112, 119, 139, 140. 
$SCWA 108, 127, 130, 131, 133 


$SCYWORK $41, 42, 45, 46, 47, 147, 149 
$SETRP 52 
$STABNDA 52 
$STORE 83 
$TIDTAB 70, 74, 75, 76, 81 
$TLGWORK 71, 82 
$TPCE 30 
$TRACE = 30, 70, 71, 73, 74, 75, 78, 82 
$TRCPUT 83 
$TRP 71 
$TTE 72, 73 
$UCT 32, 33, 38, 41, 44, 45, 46, 47, 56, 
57, 61, 63, 64, 66, 67, 68, 84, 105, 110, 116, 
142, 147, 151 
$USERCBS 47, 68, 147, 148 
$WAIT 20, 21, 25, 26, 34, 35, 43, 46, 49 
SWSTAB 88, 89, 90, 91, 92, 93, 94, 95, 
96, 97, 104 
JES2 messages 
See specific messages, such as SHASP050 
JES2 modules 3, 4 
HASJES20 10, 22, 38, 39, 50, 61, 62, 70, 
78, 87, 99, 107, 135, 140 
HASPRDR 29, 31 
HASPSSSM 26, 71 
HASPSTAB in, 106, 143 
HASPSXIT 130 
HASPTABS _1n, 9, 10, 12, 19, 23, 31, 47, 
48, 51, 68, 69, 71, 84, 86, 105, 142 
HASPWARM 21 
JES2 subtasks 48, 51, 53 
HASPACCT 51 
HASPCKAP 51 
HASPIMAG 51 
HASPOFF 51 
HASPVTAM 51 
HASPWTO 51 
HOSALLOC 51 
HOSCNVT 51, 54 
HOSPOOL 51. 
Job 85, 87, 91, 92, 93, 94, 98, 99, 101, 102, 
103, 104, 134, 137 
JOBNAME 89, 90 
JOE JES2 Control Block 85, 89, 92 
JQE 
JQEJNAME § 89, 91, 92, 94, 95 
JQETGNUM 102, 103, 104, 105, 134, 
136 
job receivers 35, 44 
job transmitters 35, 44 


L 


labels, JES2 
See JES2 labels 
Link 3, 4, 8, 10, 12, 22, 38, 39, 50, 61, 62, 70, 
78, 83, 87, 99, 103, 107, 135, 140 
Load 38, 39, 61, 62, 71, 78, 99, 135 


M 


macros, JES2 
See JES2 macros and field names 
MAIN 107 
MAPCNVA 54 
MAPRDRA 29, 32 
MASDEF _ 107 
MCT 11, 12, 13, 87, 107, 120, 122, 125, 138, 
141 
MCTDETTU 61 os 


MCTDTETH 
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